Save Txt file to a one dimensional array

Getting an error on line

Range("A1").Resize(UBound(Arr) + 1, 1).Value = Application.Transpose(Arr)

that states: Run -time error '1004' " Application -defined or object -defined error

Also, Not sure this is what I am looking for. I want to have each line as it's own "row" in the array. So Arr(0) would equal the first line of text, Arr(1) would equal the second line of text and so on.