Wie kann man eine Textdatei bis zum ende einlesen (zeilenweise) und dann abbrechen,ohne das eine Feherlermeldung erscheint?

Meine Idee war ungefähr so...
dim i as integer
dim f,fs
set fs = CreateObject("Scripting.FileSystemObject")
set f = fs.OpenTextFile

for i = 1 to 10 '(überspring die ersten 10 Zeilen)
f.skipline
next i

do until (f.readline = fehler(62)) 'genau hier happerts leider.
f.readline
i=(i+1)
loop


gruß alex