Private Sub txtEPRmMenge_KeyPress(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.KeyPressEventArgs) Handles _
   txtTextBox1.keypress,txtTextBox2.keypress etc etc etc ..... je nachdem _
   wieviel Boxen du hast
        'fängt alle ungültigen Keyboardeingaben über den Ascii Zeichensatz ab.
        'keine Kommawerte sind zulässig
        Select Case Asc(e.KeyChar)
            Case 48 To 57, 8, 32 <- Werte aus der Ansi Tabelle welche _
              zugelassen werden
                ' Zahlen, Backspace und Space zulassen
 
            Case Else
                ' alle anderen Eingaben unterdrücken
                e.Handled = True
        End Select
    End Sub