csv datei importieren

Sub csv_importieren()
Dim X As Double
Dim TXT As String
'Ort der Adresse
Open "C:\Users\Gerome\Desktop" For Input As #1 'jede Zahl, die du ausweisen möchtest
'Startpunkt
X = 0
'Anweisung nicht vor dem Ende (Inhalt) beenden
Do While Not EOF(1)
Line Input #1, TXT
Cells(1, 1).Offset(X, 0) = TXT
X = X + 1
Loop
End Sub