Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    <font color=green>' nur Zahlen 0-9</font>
    Case 48 To 57
 
    <font color=green>' nur Buchstaben A-Z und a-z</font>
    Case 64 To 90, 97 To 122
 
    Case Else
      KeyAscii = 0
  End Select
End Sub