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