Dim sFile
sFile = "C:\tralala.txt"
 
set fs =CreateObject("Scripting.FileSystemObject")
 
set TextFile = fs.OpenTextFile(sFile)
Set objTxtFile = fs.GetFile(sFile)
myFileData = REPLACE(TextFile.Read(objTxtFile.Size), CHR(0),"")
 
For each sLine in Split(myFileData, CHR(10))
      MsgBox sLine
Next