Reemplaza caracteres especiales en cadena

Reemplaza caracteres especiales en una cadena por otra cadena que se pasa como parámetro:

Ejemplos:
EliminaCarEsp("4Çds?¿*sdk*¿¡¡¡","-o-") --> 4-o-ds-o--o--o-o-o-sdk-o-o-o--o--o--o--o-
EliminaCarEsp("4Çds?¿*sdk*¿¡¡¡","-") --> 4-ds---sdk-----