lstrcmpiA (Kernel32)

Usage

    Declare Function lstrcmpi Lib "kernel32" Alias "lstrcmpiA" (ByVal lpString1 As String, ByVal lpString2 As String) As Integer

        Dim str1 = "1"
        Dim str2 = "1"

        Dim pos1 As Integer = lstrcmpi(str1, str2)