Makro bei Cklick auf abbrechen beenden

Function GetDirectory(Msg) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim r As Long, x As Long, pos As Integer
With bInfo
.pidlRoot = 0&
.lpszTitle = Msg
.ulFlags = &H1
End With
x = SHBrowseForFolder(bInfo)
path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
GetDirectory = Left(path, pos - 1)
Else
GetDirectory = ""
End If
End Function

Sub sucheDatei()
Dim i As Variant
Dim abbr As String
Dim Cancel As Integer
abbr = MsgBox("Die Files auf dem Laufwerk O: und G: müssen unbedingt geschlossen sein",  _
vbOKCancel)
If abbr = vbCancel Then Exit Sub
PfadOrdner = GetDirectory("Bitte einen Ordner wählen") & "\"
'Wenn hier auf abbrechen geklickt wird, soll Makro beendet werden