[CODE]
Open FileName For Input As #FileNumber
'Open the file

Do While Not EOF(FileNumber)
'Loop through line by line until
'The End Of File is reached
Input #FileNumber, StrFilesText
Loop