Кол-во одинаковых слов в предложении

[rafffkaaa]

Может есть какие-нибудь готовые решения.
Даже не представляю в каком направлении двигаться, т.к в задаче нельзя использовать массивы (не знаю есть ли они в vba, но думаю что есть )

2. Подсчитать кол-во предложений состоящее более чем из пяти слов.
Нашел готовую функцию, но когда вызываю ее то выскакивает ошибка ByRef.
Вот код:

Function CountMore5Words(t As String) As Long
  Dim c As Long
  c = 0
  For Each s In Split(t, ".")
    If UBound(Split(s)) > 5 Then c = c + 1
  Next
  CountMore5Words = c
End Function

Sub Var12()
Dim SS, s As String
  SS = " "
  Open "Word.txt" For Input As #1
    While Not EOF(1)
        Line Input #1, s
        SS = SS & " " & s
    Wend
  Close #1
  MsgBox CountMore5Words(SS)  ' вот так вызываю 
End Sub

Можете подсказать что не так делаю?
p.s vba какой то не очень

[Казанский]

У вас переменная SS типа Variant, т.к. не указан тип, а функция ожидает String. Объявите так:

Dim SS As String, s As String

Компилироваться будет, а будет ли делать то, что нужно - кто знает...