Private Sub TextBox1_KeyPress(ByVal Sender As Object, ByVal e As _
  KeyPressEventArgs) Handles TextBox1.KeyPress 
 
'Wenn e.Handled = False: Auswahl zulassen 
e.Handled = not((e.KeyChar => 48) and (e.KeyChar <= 57))
 
End Sub