Select Case Asc(e.KeyChar)
            Case 48 To 57, 8, 13, 189
                ' Zahlen vom 0-99, Backspace(Delete), Enter und das "-" 
                ' Vorzeichen zum Stunden abzuziehen
 
            Case Else
                ' alle anderen Eingaben unterdrücken
                e.Handled = True
 
        End Select
 
        'Wenn die Entertaaste gedrückt wurde, soll der Hinzufügen Button 
        ' betätigt werden
        If Asc(e.KeyChar) = 13 Then
            e.Handled = True
            HinzufügenButton.PerformClick()
        End If

greetz

Steffen