Example - GoTo Statement

Sub Main()
    Dim x,y,z
    For x = 1 To 5
        For y = 1 To 5
            For z = 1 To 5
            MsgBox "Looping " & z & " " & y & " " & x, z
            If y > 3 Then
                GoTo Label1
            End If
            Next z
        Next y
    Next x
    Label1:
End Sub