VBA, вычитание с неправильным результутом (ms access)

Формулировка задачи:

Доброго времени суток.
Столкнулся я в своей базе (access) с проблемой при работе с дробными числами (чертовы копейки) - два одинаковых числа при сравнении оказывались разными. В оригинале это выглядит как "If (rst2!cert_sum / rst2!cert_days) * rst1!days <> rst1!sum Then".
Упростив пример, и откинув взаимодействие с таблицами, дабы отсечь возможные причины, пришел к следующему:

Dim temp3 As Single 'явно объявим все переменные
                    Dim temp4 As Single
                    Dim temp5 As Single
                    Dim temp6 As Single
                    Dim temp7 As Single
                    temp3 = 1861.2 ' присвоил число
                    temp6 = 1861.2 ' присвоил второе число
                    temp7 = (temp6) - (temp3) 'простое вычитание
                    MsgBox temp6 & " __ " & temp3 & " __ " & temp7 'покажем через пробелы оба числа и получившееся значение

В таком виде получаем на выходе "1861,2 __ 1861,2 __ 0". Всё верно. Меняем исходные, теперь temp6 вычислим.

Dim ~'те же объявления
                    temp3 = 1861.2
                    temp4 = 3 
                    temp5 = 620.4 
                    temp6 = temp4 * temp5 'Всё то же самое, только теперь 1861.2 получено умножением, а не сразу.
                    temp7 = (temp6) - (temp3)
                    MsgBox temp6 & " __ " & temp3 & " __ " & temp7

И на выходе... "1861,2 __ 1861,2 __ 1,220703E-04". А надо 0.
Честно пытался нагуглить, не вышло.
И со второй странностью столкнулся. Тот же (второй) код, но объявление заменил на "Dim temp3, temp4, temp5, temp6, temp7 As Single". Ничего ведь не должно было измениться, да? Однако, на выходе стал получать "1861,2 __ 1861,2 __ 2,273737E-13"

Решение задачи: «VBA, вычитание с неправильным результутом (ms access)»

textual
                            Листинг программы 
                        
                            Dim a, b, c As Single, x, y As Double, i As Integer
' a, b, and c are all Single; x and y are both Double