Написать программу для подсчета суммы мест, на которых в словах текста стоит заданная буква - VB

Option Compare Text
 
 
Function SumMest(s$, b$) As Long
Dim i&, j& 'j - счетчик букв в слове
For i = 1 To Len(s)
    Select Case Mid(s, i, 1)
    Case " ": j = 0
    Case b: j = j + 1: SumMest = SumMest + j
    Case Else: j = j + 1
    End Select
Next
End Function
 
Sub test()
MsgBox SumMest("програмМу для подсчета суммы Мест", "м")
    '7+8+3+4+1=23
End Sub