在 VBA 中，可以使用 InStr 函数来查找一个字符串中是否包含另外一个字符串。InStr 函数的语法为：
InStr([start],string1,string2,[compare])
[Start]：可选，表示从 string1 的第 start 个字符开始查找，默认为 1。
String1：必需，表示要查找的字符串。
String2：必需，表示要在 string1 中查找的子字符串。
[compare]：可选，表示指定搜索类型。默认为 0，表示执行二进制比较。
如果找到了指定的字符串，则返回一个大于 0 的整数，即位于查找到的字符串在 string1 中的位置；如果未找到，则返回 0。
下面是一个例子，演示如何使用 InStr 函数判断字符串是否包含特定的字符：
Sub CheckString()
Dim myString As String
myString = "Hello, World!"
If InStr(1, myString, "World", vbTextCompare) > 0 Then
MsgBox "myString 包含 'World' 字符串"
Else
MsgBox "myString 不包含 'World' 字符串"
End If
End Sub
在上面的例子中，我们使用了 InStr 函数来查找字符串 myString 中是否包含 "World" 子字符串。由于字符串 myString 中包含 "World"，所以执行此代码会弹出一个消息框，显示 "myString 包含 'World' 字符串"。
还要注意，上述代码中的 vbTextCompare 参数用于指定比较字符串时大小写是否敏感，此处设置为不敏感。如果要设置大小写敏感，请将该参数改为 vbBinaryCompare。
Excel VBA中判断变量包含特定字符串，一般用vba like函数进行判断。
Like运算符是字符串比较时经常使用的运算符，也是VBA较难掌握的运算符。
语法：
结果 = 字符串 Like 模式
如果字符串与模式匹配，结果为True，否则为False。但是如果Like两端的字符串和模式有一个为Null，则结果为Null。
VBA内建的模式匹配功能提供了丰富的字符串比较方式，在模式表达式中可以使用通配符、字符列表（或字符区间）的任何组合来匹配字符串。
模式中的字符 与模式匹配的字符串中的字符
? 任何单一字符
* 零个或多个字符
# 任何一个数字（0-9）
[字符列表] 字符列表中的任何一个字符
[!字符列表] 不在字符列表中的任何一个字符
其它字符(串) 与自身匹配
1、Like在字符串比较时受Option Compare语句的影响，在默认情况下（Option Compare Binary），字符比较根据内部二进制表示法（ASCII码）进行，是区分大小写的，此时 "A" Like "a" 的结果为False。如果声明了Option Compare Text，则不区分大小写比较，"A" Like "a" 的结果为True。后面的讨论假设默认情况下。
2.如果模式中没有使用通配符（?、*、#）和字符列表，此时Like运算符等价于=（等号）运算符。下面表达式的结果相同。
s Like "AB"
s = "AB"
3.字符列表
理解字符列表的用法是学会Like的难点，所以，下面我会多花些笔墨帮你理解它。
(1)一个字符列表匹配的是字符串中的一个字符，不管字符列表中实际有多少个字符。
"A" Like [ABCDEGHIJ2345] 结果为True
"AB" Like [ABCDEGHIJ2345] 结果为False
唯一的例外是[]被看作长度为零的字符串。
(2)字符列表中的单个字符，没有顺序要求，上面[ABCDEGHIJ2345]和[ACDEGHIJ2345B]
[3ABCDEGHIJ245]...等等是一样的表达。
(3)字符列表中一段连续的字符（称为区间，一个字符列表可以有多个区间，广义上，单个字符也可被看作一个区间），可以使用连字符（-，减号）简化表达式，如上面的表达式[ABCDEGHIJ2345]可以简化为[A-EG-J2-5]，连字符要遵循从小到大的顺序（升序），即连字符(-)右端的字符应大于左端的字符，如其中的A-E不能写成E-A，后者系统会报错。但多个区间之间没有顺序要求，这意味着[G-J2-5A-E]、[2-5G-JA-E]...等是同一表达。
