start=1n=0length=Len(keyword)Dotemp=Instr(start,string,keyword)If temp<>0 then n = n + 1 start=temp+lengthElse Exit DoLoopMsgbox n
