Declare Function lstrcmpi Lib "kernel32.dll" Alias "lstrcmpiA" (ByVal lpString1 As String, _ ByVal lpString2 As String) As Long
Если строка lpString1 меньше,чем строка lpString2, то возвращается отрицательное число. Если первая строка больше второй, то число положительно. Если строки равны, то возвращается 0
' Сравним два слова "Русский" и "русский"
Dim retval As Long
retval = lstrcmpi("Русский", "русский")
If retval > 0 Then
MsgBox "Первое слово больше второго"
ElseIf retval = 0 Then
MsgBox "Строки равны"
Else
MsgBox "Второе слово больше первого"
End If