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