语法如下：
StrComp(string1, string2[, compare])
compare argument比较参数设置：
vbBinaryCompare 0 Perform a binary comparison.
vbTextCompare 1 Perform a textual comparison.
返回值：
string1 is less than string2 -1
string1 is equal to string2 0
string1 is greater than string2 1
string1 or string2 is Null Null
算例
Dim a As Integer
a = StrComp("Women", "women", vbBinaryCompare) ’ vbTextCompare)
当compare是vbBinaryCompare时
a = -1 说明是逐个字符比较的，当遇到第一个不相等的字符时，返回值
当compare是vbTextCompare时
a = 0 说明是整个字符串比较的，若是字母，则不分大小写