' Betragseingabe formatieren
Public Function Format_Decimal(sValue As String, _
  Optional ByVal nDecimals As Integer = 2) As String
 
  Dim nBetrag As Double
 
  nBetrag = Int(Val(Replace(sValue, ",", ".")) * 10 ^ nDecimals)
  Format_Decimal = Format$(nBetrag / 100, "0." + String$(nDecimals, "0"))
End Function

Gruss
Agnes

------------------------------------
Wenn wir heut gemeinsam starten
und wir alle viel erwarten,

denken wir an jedem Tag daran,
dass man es nur schaffen kann,

wenn wir fest zusammen stehen
und den Weg gemeinsam gehen.