Caracteres especiales

[3pies]

haz algo como esto:

Código:

Function Reemplazar(texto)
'pon aquí los que quieras
texto = Replace(texto, "ñ", "n")
texto = Replace(texto, "¿", "")
texto = Replace(texto, "--", "")
texto = Replace(texto, "cerdo", "***")
'Añade tantos reemplazos como necesites
Reemplazar = texto
End Function

Para llamar a la función, puedes usar algo como en este ejemplo para Excel:

Código:

sub censura
frase= "vamos a censurar este texto que contiene la palabra cerdo"
Range("A1")=Reemplazar(frase)
end sub

Salu2