Sub beenden bei Aktion (sowas wie BREAK Befehl)

ich möchte bei folgendem Codebeispiel die Sub1 beenden, sobald innerhalb der Sub2 bei einer msgbox abbrechen gedrückt wurde. Im unteren Beispiel wird allerdings nur die Sub1 Beendet. wie kann ich das umgehen???

Sub 1
Call sub2
End Sub1

sub2
I = MsgBox _
("Wenn Sie Daten über das Internet versenden...", _
1 + vbQuestion, "Mail wirklich senden?")
If I = 2 Then Exit Sub
End Sub2