вот программа на VBA, которая подсчитывает количество цепочек повторяющийхся символов:

Sub a()
Const str = "абвввгдеежзззз"
Dim n As Integer, i As Integer
Dim ch As String, check As String

'беру первый символ в качестве образца
ch = Mid(str, 1, 1)
For i = 2 To Len(str)
'сравниваю текущий символ с образцом
If (ch = Mid(str, i, 1)) Then
'они совпали.
'эта цепочка символов уже учтена?
If (check <> ch) Then n = n + 1
check = ch
Else
'символы не совпали. беру текущий в
'качестве нового образца.
ch = Mid(str, i, 1)
check = ""
End If
Next i
Debug.Print "Количество повторений ", n
End Sub