VB 6 - UTF -16 Big Endian para ASCII

Olá pessoal do fórum,

tenho passado por um probleminha, eu preciso criar uma Rotina em VB 6 que faça o seguinte, receba uma sequencia de caracteres em utf-16 big endian para ASCII, e que de um replace em caracteres acentuado À Á à á ... e por ai vai, pois eu recebo um XML que as vezes vem com esses acentos, e no parser lá no final do processo da erro.

Se alguem tiver uma ideia de como se faz isso ... agradeço desde já.