==============================================
Read entire file in one statement:   p445


If LOF(FileNum) > 30000 Then   ' Can't read file if too big
    MSGBox "Sorry, the file is to big!"
Else
    LineFromFile = Input$ (LOF(FileNum) , FileNum)
End If