在VBA中，可以使用InStr函數來查找字符串中字符或子字符串的位置。該函數返回一個整數值，表示字符或子字符串第一次出現的位置。
以下是一個示例代碼：
Sub FindStringPosition()
Dim str As String
Dim searchChar As String
Dim position As Integer
str = "Hello, World!"
searchChar = "o"
position = InStr(str, searchChar)
If position > 0 Then
MsgBox "The character '" & searchChar & "' is found at position " & position & "."
Else
MsgBox "The character '" & searchChar & "' is not found in the string."
End If
End Sub
在上面的代碼中，我們定義了一個字符串str和一個要查找的字符searchChar。然后，我們使用InStr函數來查找searchChar第一次出現的位置，并將結果存儲在position變量中。最后，我們根據position的值彈出一個消息框，顯示字符是否被找到以及它的位置。
這是一個簡單的例子，你可以根據你的具體需求調整代碼來查找字符串中字符或子字符串的位置。
