<code>Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    <font color=green>' nur Zahlen, Komma und Backspace</font>
    Case 48 To 57, 44, 8
    Case Else
      KeyAscii = 0
  End Select
End Sub</code>