Option Explicit
Dim sSt As Integer
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
    Select Case KeyAscii   '-- Tastenfreigabe
        Case 48 To 57: Case 8, 44  '-- Zahlen 0 - 9, Backspace und Komma
        Case Else
            KeyAscii = 0: Beep
    End Select
 
 
    With Text1
        '-- 1. max. Länge der Gesamteingabe festlegen
        .MaxLength = 16
 
        '-- 2. kein zweites Komma möglich wenn schon eins vorhanden
        If KeyAscii = 44 And InStrRev(.Text, ",") > 0 Then KeyAscii = 0: Beep
 
        '-- 3. wenn Komma an 1. Position dann automatisch eine Null davor
        If .SelStart = 0 And KeyAscii = 44 Then .Text = "0": .SelStart = 2
 
        '-- 4. kein Komma an 1. Position möglich (Option zu 3.)
     '   If .SelStart = 0 And KeyAscii = 44 Then KeyAscii = 0: Beep
 
        '-- 5. max. 2 Stellen hinter Komma. Eingabe von Zahlen vor Komma möglich
        If InStr(StrReverse(.Text), ",") > 2 And .SelStart > InStrRev( _
          .Text, ",") - 1 And KeyAscii <> 8 Then KeyAscii = 0: Beep
 
        '-- 6. max. 2 Stellen hinter Komma. Eingabe vor Komma nicht möglich ( 
        ' Option zu 5.)
     '   If InStr(StrReverse(.Text), ",") > 2 And KeyAscii <> 8 Then 
     ' KeyAscii = 0: Beep
 
        '-- 7. Komma in Mitte der Zahleneingabe möglich. Eingabe wird auf 2 
        ' Stellen hinter Komma abgeschnitten
        If .SelStart < Len(.Text) And KeyAscii = 44 Then sSt = .SelStart: .Text _
          = Left(.Text, sSt + 2): .SelStart = sSt
 
        '-- 8. Komma in Mitte der Zahleneingabe nicht möglich (Option zu 7.)
     '   If .SelStart < Len(.Text) And KeyAscii = 44 Then KeyAscii = 0: Beep
    End With
 
End Sub