I found the following bit of code on the following website
http://support.microsoft.com/kb/196652/EN-US/
Function AsymArith(ByVal X As Double, _
Optional ByVal Factor As Double = 1) As Double
AsymArith = Int(X * Factor + 0.5) / Factor
End Function
When I use it as...