InStr函数：寻找字符串
可以用来判断字符串中是否含有某个字符串。或者用来判断某个字符在字符串中出现的位置。
下面是一个判断字符串中是否含有逗号（，）的例子。
Sub test()
Dim tcolor As String
tcolor = "149 127"
Dim aa As Integer
aa = InStr(tcolor, ",")
If aa <> 0 Then
aa = 100
Else
aa = 200
End If
End Sub