Constantes de Comparação

A tabela a seguir ilustra as contantes e suas descrições:

Tabela 11-5 Constantes de Comparação e Descrições

Constante	Valor	Descrição
`vbBinaryCompare`	0	Executa uma comparação binária
`vbTextCompare`	1	Executa uma comparação textual

O exemplo a seguir ilustra o uso das Constantes de Comparação:

Exemplo 1:

Dim result
result = StrComp("Hello", "hello", vbBinaryCompare)
 
If result = 0 Then
    'Logic Strings are equal (Binary Comparison)
Else
    'Logic Strings are NOT equal (Binary Comparison)
End If
'Output -> Strings are Not equal (Binary Comparison) Logic

Exemplo 2:

Dim result
result = StrComp("Hello", "hello", vbTextCompare)
 
If result = 0 Then
    'Logic Strings are equal (Text Comparison)
Else
    'Logic Strings are NOT equal (Text Comparison)
End If
 
'Output -> Strings are equal (Text Comparison) Logic

Exemplo 3:

Dim str1, str2
 
str1 = "Apple"
str2 = "apple"
 
If StrComp(str1, str2, vbTextCompare) < 0 Then
    'Logic If
Else
    'Logic Else 
End If
 
'Output -> apple comes before Apple (Binary) ( Logic Else )