'nasGetCharCount(strText, strFindChar)
'где strText - текст, в котором ведется поиск;
'strFindChar - искомый символ
Public Function nasGetCharCount( _  название функции
       ByVal strText As String, _ строка, в которой нужно искать
       Optional strFindChar As String = " ") _ строка, которую нужно искать, по умолчанию пробел
       As Long 
  Dim gccArray() As String массив строк
  If strText = vbNullString Then  если строка пуста
    nasGetCharCount =  0  зачем оно здесь? и так вернет  0 
    Exit Function выход
  End If
  gccArray = Split(strText, strFindChar) текст разбивается в массив строк по разделителю
  nasGetCharCount = UBound(gccArray) получаем верхнюю границу массива - это и есть кол-во вхождений
End Function