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