Option Explicit
Sub verlassen2(eingabe As Integer, fehler As Boolean)
    fehler = False
    MsgBox ("Das Unterprogramm meldet sich!")
    If eingabe = 0 Then
        fehler = True
        MsgBox ("Das Unterprogramm wird verlassen!")
        Exit Sub
    End If
    MsgBox ("Das Unterprogramm meldet sich wieder!")
    MsgBox ("Das Unterprogramm meldet sich wieder!")
End Sub
Sub verlassenTest2()
    ' Programm zu exit sub
    ' aus Unterprogrammen
    ' Dateiname: verlassenTest
    Dim eingabe As Integer
    Dim fehler As Boolean
    
    eingabe = InputBox("Was eingeben!")
    MsgBox ("verlassenTest meldet sich!")
    
    ' jetzt prozedur aufrufen
    verlassen2 eingabe, fehler
    
    If fehler Then
        MsgBox ("Das Hauptprogramm wird verlassen!")
        Exit Sub
    End If
    MsgBox ("verlassenTest meldet sich wieder!")
    MsgBox ("verlassenTest meldet sich noch mal!")
End Sub