With TextBox1
 
            Select Case Asc(e.KeyChar)
                Case 48 To 57, 8, 32, 13
                    ' Zahlen, Backspace und Space zulassen
 
                Case 45
                    ' Minuszeichen nur als erstes Zeichen zulassen
                    If .SelectionStart > 0 Then e.KeyChar = ChrW(0)
                Case 44
                    ' Beistrichbehandlung
                    If InStr(.Text, ",") Or InStr(.Text, ".") Then
                        e.KeyChar = ChrW(0)
                        e.Handled = True
                    Else
                        e.KeyChar = ChrW(44)
                    End If
 
                Case 46
                    ' Punktbehandlung
                    If InStr(.Text, ",") Or InStr(.Text, ".") Then
                        e.KeyChar = ChrW(0)
                        e.Handled = True
                    Else
                        e.KeyChar = ChrW(44)
                    End If
 
                Case Else
                    ' alle anderen Eingaben unterdrücken
                    e.Handled = True
            End Select

(Visual Basic .net - Version 2008)