Option Explicit
Sub verlassen(eingabe As Integer)
    MsgBox ("Das Unterprogramm meldet sich!")
    If eingabe = 0 Then
        MsgBox ("Das Unterprogramm wird verlassen!")
        Exit Sub
    End If
MsgBox ("Das Unterprogramm meldet sich wieder!")
MsgBox ("Das Unterprogramm meldet sich wieder!")
End Sub

Sub verlassenTest()
' Programm zu exit sub
' aus Unterprogrammen
' Dateiname: verlassenTest
Dim eingabe As Integer
eingabe = InputBox("Was eingeben!")
MsgBox ("verlassenTest meldet sich!")
' prozedur aufrufen
verlassen eingabe
MsgBox ("verlassenTest meldet sich wieder!")
MsgBox ("verlassenTest meldet sich noch mal!")
End Sub