Übergabe von String an Objekt (Workbook)

Sub DateiOeffnen()
Dim strDatei As String
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Bitte die gew?nschte Datei ausw?hlen"
.InitialFileName = ThisWorkbook.Path
.ButtonName = "?ffnen Mappe"
.Filters.Add "Arbeitsmappen", "*.xls*", 1
If .Show = -1 Then
strDatei = .SelectedItems(1)
End If
End With
If strDatei  "" Then
Workbooks.Open strDatei
End If
End Sub