Save Txt file to a one dimensional array

It should work though. Change the path to yours

Sub jec()
 Dim ar
 ar = Split(CreateObject("scripting.filesystemobject").opentextfile("C:\xxx\xxx\xxx.txt").readall, vbLf)
 Range("A1").Resize(UBound(ar) + 1, 1) = Application.Transpose(ar)
End Sub