Instrukcja On...GoSub; instrukcja On...GoTo

Rozgałęzia wykonywanie programu na kilka określonych linii kodu w zależności od wartości wyrażenia numerycznego.

On expression GoSub Label1[, Label2[, Label3[,...]]]
On expression GoTo Label1[, Label2[, Label3[,...]]]

expression: Dowolne wyrażenie numeryczne z przedziału od 0 do 255 określające, do której linii program się rozgałęzia. Jeśli expression wynosi 0, instrukcja nie jest wykonywana. Jeśli expression jest większe niż 0, program przeskakuje do etykiety, której numer pozycji odpowiada wyrażeniu (1 = pierwsza etykieta; 2 = druga etykieta).

label: Linia celu według struktury GoTo lub GoSub.

Poprawne są wszystkie konwencje instrukcji GoTo i GoSub .

Sub ExampleOnGosub
Dim iVar As Integer
Dim sVar As String
    iVar = 2
    sVar =""
    On iVar GoSub Sub1, Sub2
    On iVar GoTo Line1, Line2
    Exit Sub
Sub1:
    sVar =sVar & " From Sub 1 to" : Return
Sub2:
    sVar =sVar & " From Sub 2 to" : Return
Line1:
    sVar =sVar & " Label 1" : GoTo Ende
Line2:
    sVar =sVar & " Label 2"
Ende:
    MsgBox sVar,0,"On...GoSub"
End Sub