Bueno si entendi bien lo que deseas es ponerle un <B><U>palabra</U></B>
Yo lo que haria seria aplicar la funcion instr() y seria algo asi:
Espero que te sirva, respondeme luego que tal te fue con esto.
<%
Dim Entrada
Dim Salida
Dim Palabra
Dim IniResaltado
Dim FinResaltado
Dim ind
Palabra = "alguna"
IniResaltado = "<B><U>"
FinResaltado = "</U></B>"
Entrada = "Este texto contiene alguna palabra que quiero resaltar. La palabra resaltada debe ser alguna."
Salida = ""
ind = 1
Do While InStr(ind, Entrada, "Palabra") <> 0
Salida = Salida & Mid(Entrada, ind, InStr(ind, Entrada, Palabra) - 1) & IniResaltado & Palabra & FinResaltado & Mid(Entrada, InStr(ind, Entrada, Palabra) + Len(Palabra))
ind = InStr(ind, Entrada, Palabra) + Len(Palabra) + Len(FinResaltado)
Loop
%>
<%=Salida%>