GoTo Statement

 

GoTo label

 

Branches unconditionally and without return to a specified label in a procedure.

 

Example:

 

Sub main ()

   Dim x,y,z

  

   For x = 1 to 5

       For y = 1 to 5

          For z = 1 to 5

          Print "Looping" ,z,y,x

              If y > 3 Then

                 GoTo Label1

              End If

          Next z

       Next y

   Next x

Label1:

 

End Sub