Share via

Visual Basic for Applications Reference

  • Article

On...GoSub, On...GoTo Statements Example

This example uses the On...GoSub and On...GoTo statements to branch to subroutines and line labels, respectively.

  Sub OnGosubGotoDemo()
Dim Number, MyString
   Number = 2   ' Initialize variable.
   ' Branch to Sub2.
   On Number GoSub Sub1, Sub2   ' Execution resumes here after 
      ' On...GoSub.
   On Number GoTo Line1, Line2   ' Branch to Line2.
   ' Execution does not resume here after On...GoTo.
   Exit Sub
Sub1:
   MyString = "In Sub1" : Return
Sub2:
   MyString = "In Sub2" : Return
Line1: 
   MyString = "In Line1"
Line2: 
   MyString = "In Line2"
End Sub