在 VBA 中，可以使用内置的
Instr
函数和循环结构来计算一个字符串中某个字符出现的次数。
具体来说，可以使用以下代码：
Function CountChars(text As String, char As String) As Long
Dim pos As Long
Dim count As Long
pos = InStr(text, char)
While pos > 0
count = count + 1
pos = InStr(pos + 1, text, char)
CountChars = count
End Function
这个函数接受两个参数，第一个参数是要搜索的字符串，第二个参数是要计算出现次数的字符。函数会返回这个字符在字符串中出现的次数。
这个函数中，InStr 函数用于找出字符串中第一个匹配的字符的位置。然后，使用一个循环结构来重复查找，直到所有的匹配都被计算出来。在循环中，使用 pos + 1 作为 InStr 函数的起始位置参数，这样就能跳过之前已经匹配过的字符。最后，将计数器 count 返回给调用者。
举个例子，假设要计算字符串 "hello, world!" 中字母 "l" 出现的次数，可以这样调用上述函数：
Debug.Print CountChars("hello, world!", "l")
运行这个代码会输出 "3"，表明字母 "l" 在字符串中出现了 3 次。
希望这个代码能够帮助你解决问题，如有任何疑问，请随时继续提问。