Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
 
      Select Case Asc(e.KeyChar)
         Case 48 To 57, 8, 32
 
         Case Else
            e.Handled = True
      End Select
   End Sub

------------------------------------------------------------------------------------

So sechs wie wir f?nf gibt es keine vier, wir drei sind die zwei Einzigen!

------------------------------------------------------------------------------------