'===========================
'Determine if two strings are equal - using API
'===========================
Declare Function StrIsIntlEqual Lib "shlwapi.dll" Alias "StrIsIntlEqualA" ( _
    ByVal fCaseSens As Long, _
    ByVal lpString1 As String, _
    ByVal lpString2 As String, _
    ByVal nChar As Long) As Long

Public Function StringsAreEqual(String1 As String, _
                                String2 As String, _
                                IsCaseSensitive As Boolean, _
                                Characters As Long)
    
    StringsAreEqual = (StrIsIntlEqual(CLng(IsCaseSensitive), String1, String2, Characters) <> 0)
End Function



'===========================
'Determine if two strings are equal - using API
'===========================
'Non-case-sensitive
	=(strcomp("abcd","abce",vbTextCompare)=0)
'Case-sensitive
	=(strcomp("aBcd","aBcd",vbBinaryCompare)=0)