Counting occurances in a string

[szlamany]

Yet another way...

Private Sub Form_Load()
 
Dim strtext As String, strSearch As String
 
strtext = UCase("These are my word examples. My word on it.")
strSearch = UCase("word")
 
Debug.Print "Times WORD in string = "; (Len(strtext) - Len(Replace(strtext, strSearch, ""))) / Len(strSearch)
 
End Sub

[szlamany]

Actually the method I posted, and most of the others, will find the "word" imbedded in other words and count those also...

I've made some posts recently about parsing a sentence - looking for spaces and commas and other punctuation.

If you are looking for perfect accuracy, then you need to look at each word one word at a time - that's going to require a loop through the string looking at each byte one at a time and checking for puncuation characters...