VBA not reading all of the text file into array

[BalloutMoe]

Hello All
I have the below code just a sample that reads a TextFile so I can loop it however it is not reading the whole file. When I open the text file and save it as a UTF8 with no BOM from the ANSI format it read it all, any help with this? How can I read it as the ANSI format. Thank you

 Dim fso As Object
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set fileopening = fso.OpenTextFile(txtFileName, 1)
   arrTxt = Split(fileopening.ReadAll, vbNewLine) 'vbCrLf

 

[Rick Rothstein]

Does this work with your file (change PathAndFileName to your actual path and filename)...

  Dim FileNum As Long, TotalFile As String, ArrTxt As Variant
  FileNum = FreeFile
  Open PathAndFileName For Binary As #FileNum
    TotalFile = Space(LOF(FileNum))
    Get #FileNum, , TotalFile
  Close #FileNum
  ArrTxt = Split(TotalFile, vbNewLine)

 

[BalloutMoe]

Does this work with your file (change PathAndFileName to your actual path and filename)...

  Dim FileNum As Long, TotalFile As String, ArrTxt As Variant
  FileNum = FreeFile
  Open PathAndFileName For Binary As #FileNum
    TotalFile = Space(LOF(FileNum))
    Get #FileNum, , TotalFile
  Close #FileNum
  ArrTxt = Split(TotalFile, vbNewLine)

I literally came across this on the web after posting the thread and it worked. I appreciate your reply either way. Thank you