VBA: Как подсчитать, сколько раз встречаются в слове две буквы?

[Art1st]

Нужно написать макрос, который подсчитывает количество букв "а" и "б" в слове "аббревиатура".
Должен быть ответ: 5.

[Администратор]

Макрос

Sub Макрос()
   
    Dim strText As String
    Dim lngCount As Long
    Dim i As Long
   
   
    strText = "аббревиатура"
   
    For i = 1 To Len(strText) Step 1
        If Mid(strText, i, 1) = "а" Or Mid(strText, i, 1) = "б" Then
            lngCount = lngCount + 1
        End If
    Next i
   
    MsgBox lngCount
   
End Sub

[свернуть]

[Art1st]

Спасибо.