Private Sub sevText1_KeyPress(KeyAscii As Integer)
  ' nicht zulässige Zeichen
  Const sCheck As String = "abc"
  If InStr(1, sCheck, Chr$(KeyAscii), vbTextCompare) > 0 Then
    KeyAscii = 0
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de