CSV Spalten Aufteilen

Sub GetData()
Dim strSrcFile$, strTmp$, strDelimit$
Dim intFile%, i&, arrSrc
strSrcFile = "C:\test.csv"
strDelimit = ";"
intFile = FreeFile()
Open strSrcFile For Input As #intFile
Do While Not EOF(intFile)
Line Input #intFile, strTmp
arrSrc = Split(strTmp, strDelimit)
Cells(i + 5, 1) = arrSrc(1)
Cells(i + 5, 2) = arrSrc(4)
Cells(i + 5, 4) = arrSrc(4)
Cells(i + 5, 7) = arrSrc(0)
i = i + 1
Loop
Close
End Sub

Sub GetData()
Dim strSrcFile$, strTmp$, strDelimit$
Dim intFile%, i&, arrSrc
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Datei wählen"
.InitialFileName = ""
.Filters.Add "CSV-Dateien", "*.csv", 1
.Filters.Add "Alle Dateien", "*.*", 2
If .Show = -1 Then
strSrcFile = .SelectedItems(1)
End If
End With
If strSrcFile  "" Then
Open strSrcFile For Input As #intFile
Do While Not EOF(intFile)
Line Input #intFile, strTmp
arrSrc = Split(strTmp, strDelimit)
Cells(i + 5, 1) = arrSrc(1)
Cells(i + 5, 2) = arrSrc(4)
Cells(i + 5, 4) = arrSrc(4)
Cells(i + 5, 7) = arrSrc(0)
i = i + 1
Loop
Close
End If
End Sub

Laufzeitfehler: 52
Dateiname oder -nummer falsch