Hilfe in VBA

Sub Datei_einlesen1()
Dim Pfad$
Worksheets("Tabelle1").Select
Range("A1").Select
x = Sheets(1).UsedRange.Rows.Count
d = Dir("C:\Users\Peter\Desktop\Test Serienbrief\2015_03_22\SC*.txt")
Do While d  ""
'Open "C:\Users\Peter\Desktop\Test Serienbrief\2015_03_22\" & d For Input As #1
Do While Not EOF(1)
Line Input #1, temp
Cells(x, 1) = Replace(temp, vbTab, ";")
x = x + 1
Loop
Close #1
d = Dir
Loop
End Sub