Office: abbruchbedingung welche mir mein komplettes macro beendet

hallo

wie schaffe ich eine abbruchbedingung, welche welche meine komplette codeverarbeitung in vba beendet:

derzeit hab ich folgendes:

Sub open_file()

Dim Auswahl As Integer

Neuer_Versuch:

FileRes = Application.GetOpenFilename( _
fileFilter:="All Files (*.xls) , *.xls", _
FilterIndex:=1, _
Title:="Open Varianten-File")
If FileRes = "Falsch" Then
MsgBox "Excel file couldn't be open or was not found.", _
vbExclamation, "File error"


Auswahl = MsgBox("Retry opening of a variant-file?", _
vbYesNo, "Opening of a variant-file")
If Auswahl = 6 Then
GoTo Neuer_Versuch

Else

Exit Sub
End If


Else
Varfile = FileRes
Varfile1 = Mid(Varfile, InStrRev(Varfile, "\") + 1)
test_file_opened FileRes
End If

End Sub

durch Exit Sub beendet er aber nur die subroutine und springt dann in das hauptprogramm zurück

wie kann ich aber das ganze beenden? goto geht ja auch nicht, da es ne andere prozedur ist.

 

http://www.tech-archive.net/Archive/German/microsoft.public.de.excel/2004-10/1759.html