GoSub...Return Statement

Branches to and returns from a subroutine.

Syntax

GoSub line
...

line
...

Return

The line argument can be any line label or line number.

Remarks

You can use GoSub and Return anywhere in a procedure, but GoSub and the corresponding Return statement must be in the same procedure. A subroutine can contain more than one Return statement, but the first Return statement encountered causes the flow of execution to branch back to the statement immediately following the most recently executed GoSub statement.

Also GoSub...Return can be used in global area of visibility.

    Note: You can't enter or exit Sub/Function procedures with GoSub...Return.

    Tip: Creating separate procedures that you can call may provide a more structured alternative to using GoSub...Return.

Example

This example uses GoSub to call a subroutine within a Sub procedure. The Return statement causes the execution to resume at the statement immediately following the GoSub statement. The Exit Sub statement is used to prevent control from accidentally flowing into the subroutine.

Sub GosubDemo()
Dim Num

' Solicit a number from the user.
Num = InputBox("Enter a positive number to be divided by 2.")

' Only use routine if user enters a positive number.
If Num > 0 Then
GoSub MyRoutine
End If

Trace Num

Exit Sub ' Use Exit to prevent an error.

MyRoutine:
Num = Num/2 ' Perform the division.
Return ' Return control to statement.

End Sub ' End of the GosubDemo() Sub.

 

See Also

GoTo Statement, On..GoSub Statement, On...GoTo Statement, Sub Statement, Function Statement