Below is an example of how to read a file.
' This code was borrowed from http://www.viiweb.com and is free to use without
' warranties or guarantees.
Dim strFullFileName = "somefile.txt" ' full path to a file
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(strFullFileName)
Do While f.AtEndOfStream <> True
DoEvents ' so that we don't hang excel
lin = f.ReadLine
' process the line
Set f = Nothing
Set fs = Nothing
Tested Platform: Excel 2003