Resaltar palabras buscadas

[knarfy]

A ver, lo que me has puesto me dice que no coinciden los tipos: "ubound"
Pongo el código de lo que yo tengo a ver si os sirve mejor:

<%
resalte=request.form("criterio")
texto=split(resalte)

for each elemento in texto
var1=instr(UCase(rs2.fields("mensaje")),Ucase(elem ento))
longi=len(elemento)

if var1<>0 then
var2=mid(rs2.fields("Mensaje"),var1,longi)
end if
next
response.write replace(rs2.fields("Mensaje"),var2,"<strong><font color=#ff0000>"&var2&"</font></strong>")

%>


El campo "Mensaje" es de tipo MEMO, que almacena el mensaje del foro.

Para buscar una palabra funciona. Me resalta en rojo todas las palabras buscadas que hay en el mensaje, pero cuando pongo dos o más, me resalta solo la última.

¿Cómo lo soluciono? Si necesitais que ponga más código decirmelo.

Gracias.