There are many ways to count the occurrences of a string within a text. Here’s a simple function that uses the InStr() function:

     Function CountWords(ByVal Text As String, _        ByVal Word As String, _        Optional ByVal Compare As VbCompareMethod _         = vbTextCompare) As Long    Dim Position As Long    Dim WordLength As Long        Position = InStr(1, Text, Word, Compare)        WordLength = Len(Word)        Do While Position            CountWords = CountWords + 1            Position = InStr(Position + WordLength, Text, _Word, Compare)        Loop    End Function