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

�