heh, I like the (lack of) precision demonstration function I posted to that thread much better:
Code:
Public Sub Imprecision()
    Dim dblNumber  As Double
    Dim dblCompare As Double
    
    dblNumber = HexToDecimal("2134325423423452354765785609234defaffbc9049823984908234")
    dblCompare = dblNumber - 10000000000000#
    If dblNumber = dblCompare Then
        MsgBox "x minus 10,000,000,000,000 is equal to x"
    End If
End Sub
Subtract 10 trillion from a number and the number still doesn't change. Ouch.