Поиск повторений в тексте VBA

Код на VBA

Function СЧЁТСИМВЛ(ТЕКСТ As String, СИМВОЛ As String) As Long     Dim i As Long     Dim S As Long       S = 0     For i = 1 To Len(ТЕКСТ)         If СИМВОЛ = Mid(ТЕКСТ, i, 1) Then S = S + 1     Next       СЧЁТСИМВЛ = S   End Function