TXT Import in Excel

Sub Textimport()
Dim irow As Integer, icol As Integer
Dim sfile As String, stxt As String
sfile = Range("P1").Value
If Dir(sfile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
irow = 1
icol = 1
Close
Open sfile For Input As #1
Do Until EOF(1)
Line Input #1, stxt
Do While InStr(stxt, ";")
Cells(irow, icol).Value = Left(stxt, InStr(stxt, ";") - 1)
stxt = Right(stxt, Len(stxt) - InStr(stxt, ";"))
icol = icol + 1
Loop
Cells(irow, icol).Value = stxt
irow = irwo + 1
icol = 1
Loop
Close
End Sub