Aunque son un monton de caracteres especiales...
Quizas te convenga hacer un bucle, algo asi:
Código:
'Guardas todos los caracteres especiales en un array:
ArrayCaracteresEspeciales = Array1 = Split ("Áá,ETC SEPARADO POR COMAS", ",", -1, 1)
'Guardas los caracteres con el que quieras que se reemplace. Ojo que tienen que tener el mismo orden! Si hay algun caracter que no tiene reemplazo pon ,, (dos comas seguidas) para eliminar el caracter especial.
ArrayCaracteresReemplazo = Array1 = Split ("A,a,ETC SEPARADO POR COMAS", ",", -1, 1)
'Al hacer el split no estoy seguro si tienes que utilizar vbTextCompare (el ultimo 1) o vbBinaryCompare (reemplazar el ultimo 1 por un 0)
'Hacer el bucle que te saca los caracteres que cargaste en el array:
For i = 0 to uBound(ArrayCaracteresEspeciales )
auxiliar=replace(auxiliar,ArrayCaracteresEspeciales(i), ArrayCaracteresReemplazo(i))
Next
Quizas haya algo mas simple o me este equivocando... que me corrijan si es asi
