Nach Abbrechen zurück zur Userform

in einer Userform ist ein Button zum öffnen einer Datei.

Wenn ich dann aber in dem Dialog Öffnen bin und dort abbreche komme ich nicht zurück in meine Userform sondern Makro läuft auf Fehler.
Möchte aber gern in der Userform das nächste Makro starten.

In der Anlage seht ihr ein Makro zum öffnen einer Datei.

Weiß jemand Rat für mich?

Private Sub btnZurü_Click()
neuDatei = Application.GetOpenFilename("Zurü ,*.or1")
Workbooks.OpenText _
Filename:=neuDatei, _
Origin:=xlWindows, _
StartRow:=7, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(4, 9), Array(64, 1), Array(76, 9), Array(108, 1), Array(111, 9), _
Array(112, 1), Array(115, 9), Array(116, 1), Array(119, 9))


Range("A1:E1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="=ZURš", Operator:=xlOr, _
Criteria2:="=VORV"

'Liest die formatierte Liste in Register Berechnung ein

Range("A1").Select
Selection.CurrentRegion.Select
Selection.Cut

ActiveWindow.Close SaveChanges:=False

Windows("Datensatzsuchprogramm.XLS").Activate
Sheets("Zurü-Liste").Select
Range("A5").Select
ActiveSheet.Paste
Range("A5").Select

'Liest die Kontes-Liste an der richtigen Stelle ein

Sheets("Zurü-Liste").Select
Range("A5").Select
Selection.CurrentRegion.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Berechnung").Select
Range("Y1").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Mldg = "Zurü Liste wurde eingelesen"
Stil = vbOKOnly + vbInformation + vbDefaultButton2
Title = "Suchprogramm"
Kontext = 1000
Ergebnis = MsgBox(Mldg, Stil, Title, Help, Kontext)

Sheets("Begrüßung").Select

End Sub