In diesem Beispiel wird die GoTo-Anweisung verwendet, um zu Zeilenmarken innerhalb einer Prozedur zu verzweigen.
Sub GotoAnweisungDemo()
Dim Zahl, Text1
Zahl = 1 ' Variable initialisieren.
' Zahl auswerten und zur entsprechenden Marke verzweigen.
If Zahl = 1 Then GoTo Zeile1 Else GoTo Zeile2
Zeile1:
Text1 = "Zahl ist gleich 1"
GoTo LetzteZeile ' Zu LetzteZeile verzweigen.
Zeile2:
' Die nächste Anweisung wird niemals ausgeführt.
Text1 = "Zahl ist gleich 2"
LetzteZeile:
Debug.Print Text1 ' "Zahl ist gleich 1" ' Direkt im Fenster ausgeben.
End Sub