Eingabeprüfung bei Textdatei einlesen

Sub Daten_Holen()
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
Dim iFile As Integer
Dim tmp As Variant, tmp2 As Variant
Dim lRow As Long
lRow = 5 'Startzeile der Einträge
sFile = Range("A1").Value
iFile = FreeFile
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
If Dir(sFile) = "" Then
Beep
MsgBox "Die Textdatei wurde nicht gefunden !!!"
Exit Sub
End If
sSearch = "Name"
Open sFile For Input As iFile
Do Until EOF(1)
Input #iFile, sTxt
If InStr(sTxt, sSearch) Then
tmp = Split(sTxt, Chr(34))
Cells(lRow, 1) = tmp(4) 'Name
Cells(lRow, 2) = tmp(14) & " / " & tmp(8)
lRow = lRow + 1
End If
Loop
Close iFile
MsgBox "Datenimport aus Datei  # event.txt #  war erfolgreich !!!   ", vbInformation, "Hinweis ..."
End Sub