Private Sub Text1_KeyPress(KeyAscii As Integer)
  Dim Erlaubt As String
 
  Erlaubt = "1234567890" & Chr$(8)  ' Chr$(8) = Löschtaste
 
  If InStr(Erlaubt, Chr$(KeyAscii)) = 0 Then
    KeyAscii = 0
  End If
End Sub

Gruß
Marcus