Exceldatei auswählen und in Textfeld einfügen

Private Sub cmdDateiAuswaehlen_Click()
Me!txtExcelDatei = OpenFileName(CurrentProject.Path,
"Excel-Datei auswählen”, "Excel 2013 (*.xlsx)|
Alle Dateien (*.*))
If Len(Me!txtExcelDatei) > 0 Then
If Len(Dir(Me!txtExcelDatei)) > 0 Then
With Me!cboTabellenblaetter
.RowSourceType = "Value List
.RowSource = _
TabellennamenEinlesen(Me!txtExcelDatei)
.SetFocus
.Dropdown
End With
End If
End If
End Sub