在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"。
