[Resolvido] Consulta personalizada

Pessoal encontrei estação para destacar palavras ou frase de uma busca mas não estou conseguindo fazer com que ela funciona alguem tem uma luz para mim

olha o erro que dah

Tipos incompatíveis: 'palavra'

Function DestacaTexto(textoBD, n_palavras)
y = n_palavras
Alterado = textoBD
DO WHILE 0 <= y
palavra_M = UCase(palavra(y))
palavra_m = LCase(palavra(y))
palavra_Mm = UCase(MID(palavra(y),1,1)) & LCase(MID(palavra(y),2,Len(palavra(y))))

 DestTexto = "<FONT style=""BACKGROUND-COLOR:#D1D1D1"" color=""#006600""><STRONG>" & palavra_M & "</STRONG></FONT>"
 Alterado = Replace(Alterado,palavra_M, DestTexto)

 DestTexto = "<FONT style=""BACKGROUND-COLOR:#D1D1D1"" color=""#006600""><STRONG>" & palavra_m & "</STRONG></FONT>"
 Alterado = Replace(Alterado, palavra_m, DestTexto)

 DestTexto = "<FONT style=""BACKGROUND-COLOR:#D1D1D1"" color=""#006600""><STRONG>" & palavra_Mm & "</STRONG></FONT>"
 Alterado = Replace(Alterado, palavra_Mm, DestTexto)

	y = y - 1

LOOP DestacaTexto = Alterado End Function