Private Sub Text4_KeyPress(KeyAscii As Integer)
  Dim Zugelassen As String
  Dim tPos as Integer
  Dim Nachkommastellen as Integer
 
  Zugelassen = "1234567890," & Chr$(8)     ' Das Komma muß dann in die Liste 
  ' der erlaubten Zeichen
  Nachkommastellen = 2                     ' z.B., kann auch außerhalb 
  ' definiert werden, z.B. als Konstante
 
  If InStr(1, Zugelassen, Chr$(KeyAscii)) = 0 Then KeyAscii = 0
  tPos = InStr (Text4, ",")
  If tPos > 0 then
    If Len(Text4) - tPos + 1 > Nachkommastellen then KeyAscii = 0
  End If
End Sub