mantener decimales

Como puedo mantener el número máximo de decimales en VBA?

Hago operaciones del tipo:

dim x, y as Double

x = 41.235689
y = 78.14253678

[a5] = [b5] * x
[b5] = y
[a6] =[a5]*[b5]

y le doy formato con NunberFormat (.NumberFormat = "#,##0.00 $") para que
sólo muestre dos decimales.

Lo que hace es cortar los números y las inexactitudes se arrastran