Как подсчитать количество конкретных символов в ячейке с помощью Excel VBA

'=================================================================================

'// подсчет количества вхождений одной строки в другую

Function COUNTTEXT(strCheck As String, strVal As String) As Long

'strCheck - строка в которой проверяем

'strVal - строка корую ищем

Dim i As Integer, count As Integer

Dim intLen_strVal As Integer

If Len(strVal) > 0 Then

intLen_strVal = Len(strVal)

Else

COUNTTEXT = 0: Exit Function

End If

count = 0

'If Len(ref_string) <> 1 Then COUNTTEXT = CVErr(xlErrValue): Exit Function

For i = 1 To Len(strCheck)

ff = Mid(strCheck, i, intLen_strVal)

If Mid(strCheck, i, intLen_strVal) = strVal Then count = count + 1

Next

COUNTTEXT = count

End Function

'=================================================================================