Formelproblem

Kann mir jemand bei dieser Formel helfen?
Hier ein Auszug aus einer Funktion

Function runden(Faktor, Nachkomma, runde As Boolean)
faktor1 = 10 ^ ((Log(Faktor) / Log(10)) + Nachkomma)
faktor2 = 10 ^ Nachkomma
rest = 0
Im Makro wird Faktor mit z.B. 1000 belegt und der faktor1 hat nach abarbeiten der Zeile beginnend mit faktor1 anstelle der erwarteten 1000 nur den Wert 999,99999999999.

Wie kann man dieses Problem lösen

Danke

Henry