Sub inputtxt()
    Dim s As String, i As Long
    Open "C:\Users\i\Desktop\xxx.txt" For Input As #1
    i = 1
    Do While Not EOF(1)
        Line Input #1, s
        Cells(i, 1) = s
        i = i + 1
    Loop
    Close #1
    MsgBox "ok!"
  End Sub