Muchas gracias, yo acaba de encontrar esto otro:
Set objExpresion=New RegExp
objExpresion.Pattern= "-nombre-"
objExpresion.IgnoreCase=True
objExpresion.Global=True
Texto=objExpresion.Replace(texto,result.fields("no mbre_contacto"))
Pero de la otra manera es más corto, asi que gracias de nuevo
