>   Dim q3 As Double
>   q3 = 1.1212 - 1.1211
>   MsgBox q3 'q3<>0.0001

Это у всех процессоров X86 так. Если хочешь точно, то примени соответствующие типы, напр. так:

[vb]
   Dim q3 As Double
   q3 = CDec(1.1212) - CDec(1.1211)
   MsgBox q3 'q3=0.0001