otra solucion , ademas de la de Al Zuwaga, es utilizar
InStr combinado con
Left y/o
Rigth.
Pd: aunque ahora que lo pineso, bastaria con
Cita: valor="cap_buscapina: soy el mas hermoso"
if instr(1,valor,":",1) then
valor="<b>" & replace(valor,":",":</b>")
end if
y depaso controlas que los : esten en la cadena.