Private Sub Namedestextfeldes_KeyPress(keyascii As Integer)
'verhindert die Eingabe von Text. Erlaubt sind Ziffern und Return/Enter
  If (keyascii < 48 Or keyascii > 57) And keyascii <> 13 Then
    keyascii = 0
'Keyascii=0 sperrt Tastatureingabe!
  End If
 
  If keyascii = 13 Then namedesnächstentextfeldes.SetFocus
  End Sub