Hola gracias por tu ejemplo, pero me marca el siguiente error:

No se puede tener acceso a caracteres más alla del final de la cadena.

Can't to have access to caracters more of end of string

Está en las siguientes lineas

v3=ASC(SUBSTR(xstr,k+1,1)) + ;
ASC(SUBSTR(xstr,k,1)) * 256

Como soy novato (I am newie) no sé como solucionarlo. Podrías apoyarme, please.