HI everybody

I want to know how can i do to search a word in a richtextbox to count it and to color it , in yellow for example

this is my code , and i think it's incomplete and probably wrong


dim n as integer
dim t as string
for each t in richtextbox1.text
if t="hello" then
n=n+1
end if
next
'It doesn't works actually , can you help me