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
                'irgendwas ...
            Case Else
                e.Handled = True
        End Select
    End Sub

Jedes Programm,
in das sich ein Fehler einschleichen kann,wird auch einen enthalten.