In diesem Beispiel wird GoSub verwendet, um eine Unterroutine innerhalb einer Sub-Prozedur aufzurufen. Die Ausführung wird nach Ausführung der Return-Anweisung mit der Anweisung fortgesetzt, die auf die GoSub-Anweisung folgt. Die Exit Sub-Anweisung verhindert, daß der Code der Unterroutine versehentlich ausgeführt werden kann.
Sub GoSubDemo() Dim Zahl ' Zahleneingabe vom Benutzer. Zahl = InputBox("Positive Zahl, die durch 2 teilbar ist.") ' Routine nur aufrufen, wenn Benutzer eine positive Zahl eingibt. If Zahl > 0 Then GoSub Routine1 Debug.Print Zahl Exit Sub ' Exit, um Fehler zu vermeiden. Routine1: Zahl = Zahl/2 ' Division durchführen. Return ' Steuerung an Anweisung zurück, die End Sub ' auf GoSub-Anweisung folgt.