Comparison of Double values

[wrack]

Option Explicit
 
Private Sub Command1_Click()
    Dim aa1 As Double
    Dim aa2 As Double
    Dim bb As Double
    
    Dim aa As Double
    
    aa1 = 1.36
    aa2 = 0.04
    
    aa = CDbl(aa1) + CDbl(aa2)
    
    aa = Format(aa, "0.00")
    
    bb = 1.4
    
    bb = Format(bb, "0.00")
    
    If CDbl(aa) > CDbl(bb) Then
        MsgBox aa & ">" & bb
    ElseIf CDbl(aa) = CDbl(bb) Then
        MsgBox aa & "=" & bb
    Else
        MsgBox aa & "<" & bb
    End If
End Sub

Cheers...