Infatti. Hai ragione. Penso sia client. Comunque ecco il codice

for i = 0 to ubound(Keyword)
testo=Replace(testo, keyword(i), "<font color=red>"&keyword(i)&"</font>")
next