Comparison of Double values

[swatty]

appending on phinds reply ,changed your code a bit

Dim aa1 As Double
   Dim aa2 As Double
   Dim bb As Integer
   
   Dim aa As Integer
   
   aa1 = 1.36
   aa2 = 0.04
   
   aa = Int((aa1 + aa2) * 100)
   
   bb = Int(1.4 * 100)
   
   
   If aa > bb Then
   MsgBox aa & ">" & bb
   ElseIf aa = bb Then
   MsgBox aa & "=" & bb
   Else
   MsgBox aa & "<" & bb
   End If

try it and you'll see what is meant here