Comparison of Double values

[KayJay]

Very interseting. Just changed each double to a single and guess what?

Private Sub Command1_Click()
Dim aa1 As Single
Dim aa2 As Single
Dim bb As Single
 
Dim aa As Single
 
aa1 = 1.36
aa2 = 0.04
 
aa = aa1 + aa2
 
bb = 1.4
 
 
If aa > bb Then
MsgBox aa & ">" & bb
ElseIf aa = bb Then
MsgBox aa & "=" & bb
Else
MsgBox aa & "<" & bb
End If
 
End Sub