Programación de cifrado de caracteres chinos

¿Hay algún error? Debería convertirse de wxyz a abcd, ¿verdad?

Subtexto privado 1 _ KeyPress(KeyAscii es un número entero)

Dim ckey es un número entero

Si KeyAscii gt= Asc("a ") y KeyAscii lt= Asc("z ") entonces

ckey = KeyAscii 4

Si ckey gtAsc("z ") entonces ckey = ckey-Asc(" z ") Asc(" a ") -1

KeyAscii = ckey

Terminará si...

Si KeyAscii gt= Asc("A ") y KeyAscii lt= Asc ("Z " ) entonces

ckey = KeyAscii 4

Si ckey gtAsc("Z ") entonces ckey = ckey-Asc(" Z ") Asc(" A ")- 1

KeyAscii = ckey

Terminará si...

Finalizar conector