[RESOLVED] count the number of words

[MartinLiss]

Dim strWords() As String
Dim intCount As Integer
Dim lngIndex As Long
 
 
strWords = Split(MyData, " ")
 
For lngIndex = 0 To UBound(strWords)
    If Left$(LCase(strWords(lngIndex)), Len("university")) = "university" Then
        intCount = intCount + 1
    End If
Next
 
MsgBox intCount - 1

The Left$ portion of the If statement takes care of the situation where the word you want to count is followed by a period, comma, etc.