Listbox deaktiveren/Sub routine beenden

Sub Routine + 

Sub weitere Routine..
das makro startet mit Routine "TEST"... dann läuft er in das Routine1.. dort ist dann eine If   _
_
then else abfrage...
Wenn da ein Bedingung erfüllt soll er aus der Routine springen, aber KOMPLETT...(Auch aus der   _
_
Routine > Test)
bei exit 

Sub springt er zurück würde dann die Routine 2 durchlaufen.
Gibt da eine Möglichkeit ?
Danke !

Sub test
code...
code...
modul1.Routine1
modul1.Routine2
End Sub

Sub routine1
code...
if then > Makro Komplett beenden !
End Sub

Sub routine2
code...
End Sub