Save Txt file to a one dimensional array

Or

Sub jecc()
 Dim ar
 Open "C:\xxx\xxx\xxx.txt" For Input As #1
 ar = Split(Input(LOF(1), 1), vbLf)
 Range("A1").Resize(UBound(ar) + 1, 1) = Application.Transpose(ar)
 Close #1
End Sub