You could loop through the string using Mid$ and Instr to move word by word counting the matches of your specific word.

Or you could do like suggested with the splitting of the text into an array, but loop through the array testing for matches of your word.