Después de dejarlo reposar unas horas logré que funcionar el segundo problema
. La sulución era cambiar únicamente cambiar el nombre al segundo argumento que se le pasa a la función ResaltaParam
Function ResaltaParam (PLlave,
strMarcado)
' Cambiar strOriginal por strMarcado
Con respecto al primer problemas, lo de las palabras acentuadas aún continuo con el
Agradezco cualquier sugerencia
Gracias