Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    KeyAscii = 0
    If CheckForOK() Then
      ' eins tiefer
 
    End If
  End If
End Sub

Private Function CheckForOK() As Boolean
  ' Prüfung der Eingabe(n)
  Dim bResult As Boolean
 
  bResult = True
  If ... Then
    bResult = False
  End If
 
  CheckForOK = bResult
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de