在VB中，可以使用InStr函数来判断字符串中是否包含某个字符。该函数的语法如下：
InStr([start], string1, string2[, compare])
参数说明：
start：可选参数，指定在字符串中开始搜索的位置，默认为1。string1：必需参数，指定要搜索的字符串。string2：必需参数，指定要搜索的字符或字符串。compare：可选参数，指定比较方式。可以是vbBinaryCompare（二进制比较）或vbTextCompare（文本比较），默认为vbBinaryCompare。函数返回值为包含该字符或字符串的位置，如果未找到，则返回0。
以下是一个示例代码，演示如何判断字符串中是否包含某个字符：
Dim str As String
Dim ch As String
Dim pos As Integer
str = "Hello, World!"
ch = "o"
pos = InStr(str, ch)
If pos > 0 Then
Console.WriteLine("字符串中包含字符 " & ch)
Else
Console.WriteLine("字符串中不包含字符 " & ch)
End If
该示例中，InStr函数用于判断字符串str中是否包含字符ch。如果包含，则打印"字符串中包含字符 o"；否则打印"字符串中不包含字符 o"。
