Поиск комбинаций символов в тексте - VB

Формулировка задачи:

Ребят, тут ещё одна проблема возникла. Необходимо подсчитать количество сдвоенных символов в тексте (допустим, "нн") Всё безумно просто, однако проблема заключается в забивании кода в модуль: при использовании ф-ции в том же excel выдается ошибка код получился такой:

Public Function SymbolCount(Text As String) As Variant
If Text = vbNullString Then
  SymbolCount = 0
End If
 stroka = Split(Text, "лл")
 SymbolCount = UBound(stroka)
End Function

Знаю, что похожее уже было, тут просто трабл немножко в другом, нежели раньше

Решение задачи: «Поиск комбинаций символов в тексте»

textual
                            Листинг программы 
                        

                            Public Function SymbolCount(ByVal Text As String) As Integer
SymbolCount = 0
For i = 1 To Len(Text) - 1
    code = Asc(Mid(Text, i, 1))
    If Mid(Text, i, 1) = Mid(Text, i + 1, 1) And _
    ((code >= 47 And code <= 57) Or _
    (code >= 65 And code <= 90) Or _
    (code >= 97 And code <= 122) Or _
    (code >= 192 And code <= 255)) Then SymbolCount = SymbolCount + 1
Next
End Function
                        