Try something like this, to see what the actual value of A is.

A2 = FormatNumber(A,15)
MsgBox (A2)

EDIT
Looks like it might need to be:
A2 = Format(A, ##0.000000000000000000)