Este tema ya se trato un par de veces y no hace mucho, busca entre los post de LAS páginas anteriores, de seguro lo encuentras... 

que tal ricardovinzo como lo dice cΔssiΔnі  ese tema ya se ha tratado aqui varias veces, pero igual hay va una vez más jejeje



lo que puedes hacer es usar la función instr ejemplo

dim pos as long
pos = 1
do
    pos = instr(pos, "Carlos", texto)   ' Localica donde empieza la palabra Carlos
    if pos = 0 then exit do
    RichTextBox1.SelStart = pos    ' seleccionamos la parte del texto
    RichTextBox1.SelLength = 6     ' y la ponemos en negrita
    RichTextBox1.SelBold = True
loop while pos <> 0 ' Repetimos el bucle hasta que no encuentre más parabras



tambien puedes crear un array de palabras a buscar y hacer bucles anidados para que te ahorres codgo,




espero te sirva este pequeño ejemplo......
saludos....