Wenn Sie nur die Eingabe von numerischen Werten
    in einer Textbox erlauben wollen, so hilft die folgende kleine Funktion.

    Beachten Sie allerdings,
    dass Sie mit dieser Routine keine negativen Werte eingeben können !

ERFORDERLICHE OBJEKTE

   1 Textbox (Text1)

FORM-CODE

   Private Function NurZahlen(KeyAscii As Integer)
      Const Nummern$ = "0123456789"
      If InStr(Nummern, Chr(KeyAscii)) = 0 Then KeyAscii = 0
      NurZahlen = KeyAscii
   End Function

   Private Sub Form_Load()
      Text1.Text = ""
   End Sub

   Private Sub Text1_KeyPress(KeyAscii As Integer)
      KeyAscii = NurZahlen(KeyAscii)
   End Sub