Set objFileToRead = CreateObject(“Scripting.FileSystemObject”).OpenTextFile(“C:\scripts\MyTextFile.txt”,1)
Dim i
i = 0
do while not objFileToRead.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFileToRead.ReadLine
i = i + 1
Loop
objFileToRead.Close
Set objFileToRead = Nothing
Now, if you want to use each line, just refer to the line by arrFileLines(0), arrFileLines(1), arrFileLines(2), etc.