How to get count of repeated word in given string Ex : "guru prasad"

str = "guruprasuadu"
Cnt =0
p=1
do while instr(p,str,"u") > 0
          Cnt = Cnt +1
p = instr(p,str,"u")+len("u")
msgbox p
loop
msgbox Cnt