在VB中，可以使用InStr函数来判断一个字符串是否包含另一个字符串。InStr函数返回一个整数值，表示要搜索的字符串在被搜索的字符串中第一次出现的位置。
以下是一个示例代码，演示如何使用InStr函数判断一个字符串是否包含另一个字符串：
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
在上面的代码中，我们将要搜索的字符串赋值给mainString变量，将要判断是否包含的字符串赋值给subString变量。然后，使用InStr函数来判断subString是否存在于mainString中。如果InStr函数的返回值大于0，则表示mainString中包含subString，否则不包含。
根据实际情况，你可以替换mainString和subString的值来进行测试。
