Das ende einer Textdatei abfangen fehler:

[Thunder]

Hallo zusammen,
ich lese eine Textdatei zeilenweise ein
zeile = objTextStream.Readline
Das funktioniert auch wunder bar nur am schluss (die restlichen informationen) kann ich mit eine schleife aufbereiten.
Mein problem ist nur das ich das datei ende nicht abfangen kann besser gesagt ich weiß nicht mehr wie.

Fehler:
Laufzeitfehler in Microsoft VBScript Fehler "800a003e'
Eingabe hinter Dateiende.

xxxxxx.asp, line 95

Schleife:
Do
  zeile = objTextStream.Readline
  anzuntpkt = Split(zeile,";")
  zeile = objTextStream.Readline
  htehma = Split(zeile,";")
  Response.Write "<tr><td>lfd.Nr.</td><td>" & htehma(0) & "</td><td>Thema:</td><td>" & htehma(1) & "</td></tr>"
  For i = 1 to anzuntpkt(0)
    zeile = objTextStream.Readline
    unthema = Split(zeile,";")
    Response.Write "<tr><td>lfd.up.Nr.</td><td>" & unthema(0) & "</td><td>Unterpunk Thema:</td><td>" & unthema(1) & "</td><td>Termin:</td><td>" & unthema(2) & "</td><td>Zuständig:</td><td>" & unthema(3) & "</td></tr>"
  next
  zeile = objTextStream.Readline 'leere Zeile
Loop

Ich weiß das Do/Loop ein falscher weg ist aber sagt mit bitte einen besseren.
Ich weiß auch das ich keine enbedingung habe und jetzt habt ihr mein problem.