' Betrag in Typ Long konvertieren unter
' Berücksichtigung der Anzahl der Nachkommastellen
Public Function SaveAsLong(ByVal Betrag As String, _
  Optional ByVal Nachkomma As Integer = 2) As Long
 
  Betrag = Trim$(Betrag)
  If Betrag <> "" Then
    If InStr(Betrag, ",") > 0 Then _
      Mid$(Betrag, InStr(Betrag, ","), 1) = "."
    Betrag = Format$(Int(Val(Betrag) * Val("1" + _
      String$(Nachkomma, "0")) + 0.5))
  End If
 
  SaveAsLong = Val(Betrag)
End Function