Datei über Makro suchen und automatisch öffnen

' Dieses Makro zeigt bei einer gefundenen Datei nur den Pfad an.
' Das Makro sucht in Verzeichnissen mit berücksichtigung von Unterverzeichnissen.
Sub Suchen()
Dim objFileSearch As FileSearch
Dim strVerzeichnis As String, strDatei As String
strVerzeichnis = InputBox("Verzeichnis:", , "t:\s01\dok\")
If strVerzeichnis = "" Then Exit Sub
strDatei = InputBox("Dateiname:", , "test.xls")
If strDatei = "" Then Exit Sub
Set objFileSearch = Application.FileSearch
With objFileSearch
.LookIn = strVerzeichnis
.SearchSubFolders = True
.FileName = strDatei
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox .FoundFiles(1)
Else
MsgBox "Datei wurde nicht gefunden!"
End If
End With
End Sub

Besten Dank im voraus für jede Antwort.
Mit freundlichen Grüssen.

Pat Beach