I need a way to detect the EOF with FSO

Code:
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile(Filename, 1)

Do While Not File.EOF(1)
Loop

File.Close