比如，查找byte数组X中的“.”字符，一定要写成这样才会有正确的返回值：
seach1 = InStr(1, StrConv(x, vbUnicode), ".", vbBinaryCompare)

写成这样，无论X怎么样,返回值都是0：
seach1 = InStr(i, x, ".", vbBinaryCompare)

应该不是"."的问题，使用CBYTE(46)代替，问题照旧。