Try:
Code:
Open Fname For Input As #1
iRow = 0
Do While Not EOF(1)
Line Input #1, StrData
While InStr(StrData, " ") > 0
StrData = Replace(StrData, " ", " ")
Wend
If iRow > 0 Then Cells(iRow, 2) = Split(StrData, " ")(1) ' This line puts the imported values into the excel sheet
iRow = iRow + 1
Loop
Close 1