fastest way to read text file

[stingrae]

I have a project that reads several text files and i am really shocked as to how slow the following process does it:

        FileOpen(1, strFilePath, OpenMode.Input)
        Do Until EOF(1)
            strTextLine = LineInput(1)
            :
            :
        Loop
        FileClose(1)

is there are faster way to read text files?