Форум по VBA, Excel и Word

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