Sub Main'This example finds the name "Stuart" in a string 'and then extracts two words from the string. s$ = "My last name is Williams; " & _ "Stuart is my surname." i% = WordCount(s$) MsgBox "’" & s$ & "’ has " & i% & " words."End Sub