Exit Sub

Sub Versand() dieses abgefragt. Wird dort Abbrechen gedrückt, also Leerstring zurückgegeben, soll der gesamte Ablauf abgebrochen werden. Mit Exit 

Sub beende ich das aktuelle Modul und der Rest läuft weiter, soll er aber nicht.
Sub Archiv()
[Prozedur]
If Range("s2") = "" Then
Versand    wenn Zelle s2 leer, wird das Datum abgefragt und eingefügt
End If
[Prozedur]
End Sub
Sub Versand()
Dim var As Variant
var = Application.InputBox("Bitte das Versand-Datum eingeben" & Chr(10) & "(Eingabeformat: TT.MM.JJJJ)!", Type:=1)
If IsDate(CDate(var)) Then
Range("S2") = Format(var, "DD.MM.YYYY")
If var = "" Then Exit Sub
End If
End Sub
Wie bekomme ich das geregelt?
Gruß Klaus