Private Sub Form_Load()
 
'cadena1 es menor que cadena2    -1
'cadena1 es igual que cadena2     0
'cadena1 es mayor que cadena2     1
'cadena1 o cadena2 es Null   Null
    Select Case StrComp("ares.exe", "Ares.exe", vbBinaryCompare)
        Case 0
            MsgBox "Texto Esactamente Igual"
        Case Else '(1, -1)
            MsgBox "Cadenas Distintas"
    End Select
    Select Case StrComp("Ares.exe", "Ares.exe", vbBinaryCompare)
        Case 0
            MsgBox "Texto Esactamente Igual"
        Case Else '(1, -1)
            MsgBox "Cadenas Distintas"
    End Select
End Sub