"Durchsuchen" Dialog bei CSV Import

ich lese ein CSV mit festem Pfad ein (Code unten)
Gibt es eine Möglichkeit, statt dem festen Pfad einen "Durchsuchen" Dialog zu verwenden, der das gewählte File dann verwendet?

Vielen Dank für Eure Tips!!

Gruss
_marcus

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;Desktop:Ordner:test.csv", Destination:=Range _
("A1"))
.Name = "applications"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlMacintosh
.TextFileStartRow = 3
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
.UseListObject = False
End With