Option Explicit
Dim bEnterPresses As Boolean

' Texzeilen einlesen
While Not EOF(F)
  Line Input #F, sLine
  If ... Then
    ' Fehler - warten, bis Enter gedrückt wurde
    bEnterPressed = False
    While Not bEnterPressed
      DoEvents
    Wend
  End If
Wend

Private Sub Button_Click()
  bEnterPressed = True
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de