在Visual Basic（VB）中，可以使用`InStr`函数来判断字符串中是否包含某个字符或另一个字符串。以下是使用`InStr`函数的一些示例：
判断字符串中是否包含某个字符
```vb
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
```
判断一个字符串是否包含另一个字符串
```vb
Dim mainString As String
Dim subString As String
mainString = "Hello, world!"
subString = "world"
If InStr（mainString, subString） > 0 Then
MsgBox（"mainString包含subString"）
Else
MsgBox（"mainString不包含subString"）
End If
```
使用`InStrRev`函数从字符串的后面开始向前查找
```vb
Dim str As String
Dim subStr As String
str = "Visual Basic"
subStr = "Basic"
Dim pos As Integer
pos = InStrRev（str, subStr）
If pos > 0 Then
MsgBox（"str包含subStr，位置为： " & pos）
Else
MsgBox（"str不包含subStr"）
End If
```
结合`LCase`函数进行不区分大小写的比较
```vb
Dim str1 As String
Dim str2 As String
str1 = "This Is a Beautiful Day!"
str2 = "day"
If LCase（str1） Like LCase（str2） Then
MsgBox（"str1包含str2"）
Else
MsgBox（"str1不包含str2"）
End If
```
这些示例展示了如何使用`InStr`函数及其变体来判断字符串中是否包含特定字符或字符串。根据具体需求，可以选择合适的方法来实现字符串比较。