Opérateur de comparaison

Function Comparer(ByVal A, ByVal B) As Variant
    If (Not IsEmpty(A)) And IsNumeric(A) And B <> "" Then
        Select Case Mid$(B, 1, 2)
            Case ">="
                If A >= Val(Mid$(B, 3, Len(B) - 2)) Then Comparer = True Else Comparer = False
            Case "<="
                If A <= Val(Mid$(B, 3, Len(B) - 2)) Then Comparer = True Else Comparer = False
            Case Else
                Select Case Mid$(B, 1, 1)
                    Case ">"
                        If A > Val(Mid$(B, 2, Len(B) - 1)) Then Comparer = True Else Comparer = False
                    Case "<"
                        If A < Val(Mid$(B, 2, Len(B) - 1)) Then Comparer = True Else Comparer = False
                    Case Else
                        If A = Val(Mid$(B, 2, Len(B) - 1)) Then Comparer = True Else Comparer = False
                End Select
        End Select
    Else
        Comparer = ""
    End If
End Function