在VB中，可以使用`InStr`函数来查找一个字符串在另一个字符串中的位置。`InStr`函数有多种用法，具体取决于你要实现的功能。
1. 查找子字符串的位置：
```vb
Dim str As String = "Hello, World!"
Dim subStr As String = "World"
Dim position As Integer = InStr(str, subStr)
If position > 0 Then
Console.WriteLine("子字符串的位置是：" & position)
Else
Console.WriteLine("子字符串不存在")
End If
```
2. 从指定位置开始查找子字符串的位置：
```vb
Dim str As String = "Hello, World!"
Dim subStr As String = "o"
Dim startPosition As Integer = 5
Dim position As Integer = InStr(startPosition, str, subStr)
If position > 0 Then
Console.WriteLine("子字符串的位置是：" & position)
Else
Console.WriteLine("子字符串不存在")
End If
```
3. 查找子字符串最后一次出现的位置：
```vb
Dim str As String = "Hello, World!"
Dim subStr As String = "o"
Dim position As Integer = InStrRev(str, subStr)
If position > 0 Then
Console.WriteLine("子字符串最后一次出现的位置是：" & position)
Else
Console.WriteLine("子字符串不存在")
End If
```
`InStr`函数还有其他用法，你可以根据具体需求来选择使用。
