Function FixKomma(x As Double, y As Integer)
    Dim z As String
    If x - Fix(x) <> 0 Then
        z = Mid(x, InStr(1, x, ",") + 1, y)
        z = Fix(x) & "," & z
        FixKomma = CDbl(z)
    Else
        FixKomma = x
    End If
End Function
Sub ZahlenTest()
    'Du übergibst der Function FixKomma die Zahl und die Anzahl der 
    ' Nachkommastellen
    'zB.
    MsgBox FixKomma(2.12455, 4)
End Sub