በ...መሄጃ ወደ ንዑስ አረፍተ ነገር: በ...መሄጃ ወደ አረፍተ ነገር

በ N መሄጃ ወደ ንዑስ ምልክት1[: ምልክት2[: ምልክት3[,...]]]
በ ቁጥር መግለጫ መሄጃ ወደ ንዑስ ምልክት1[: ምልክት2[: ምልክት3[,...]]]

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