ansi a ascii

[elixyr]

Hola a todos!

Quisiera saber si hay alguna función o algo para convertir de ansi a ascii. Estoy haciendo un programa que encripte de tal forma que adquiera el asc de una cadena y le sume su longitud. Entonces imprime la cadena del codigo ascii que obtiene y lo escribe en un archivo.

Es decir si tengo la cadena "AB" entonces. Asc("A") = 65 , longitud de cadena = 2. por lo tanto es 67. Escribe "C" luego asc("B")=66, longitud de cadena= 2 , por lo tanto es 68. Escribe "D". La cadena resultante sería "CD"

mi problema surge cuando tiene q leer Ñ, y la longitud de la cadena es grande.
Es decir que en lugar de que me lea el 165 me lee 209. Por lo que mi cadena por decir es de 80, suma 209+80 = 289. Sobrepasa los 255 y me marca error ,porque obviamente no hay un símbolo que equivalga a ese código.

No puedo cambiar mi algoritmo de encriptamiento. Sin embargo quisiera saber si hay alguna función en VB que me permita cambiar de codepage, o algo así para que me maneje otro tipo de ascii extendido. Encontré que en c# está una clase que se llama encoding.Que permite cambiar la tabla de códigos, por así decirlo. Pero no he encontrado nada para VB6.

Espero que puedan ayudarme


ELI