Public Function myRound(Number, Digits As Long)
Dim decStr As String
decStr = Replace(Space(Digits), " ", "0")
myRound = CDec(Format(Number, "0." & decStr))
End Function