Do Until EOF(F) [color=green]' wenn das Ende der Datei erreicht ist, wird die 
' Schleife verlassen bzw. gar nicht erst ausgeführt
  ...
Loop

Dim SchleifeUeberspringen as Booelan
 
SchleifeUeberspringen = True [color=green]' je nach dem wie gewünscht
 
iF SchleifeUeberspringen = False then [color=green]' Schleife nur ausführen, 
' wenn Variable SchleifeUeberspringen = False ist
  Do Until EOF(F) [color=green]' wenn das Ende der Datei erreicht ist, wird die 
  ' Schleife verlassen bzw. gar nicht erst ausgeführt
    ...
  Loop
End if

Viel Spass,
R@lf