Programación VB, diseñar un programa de cifrado de texto. Ingrese una cadena y cifrela de acuerdo con las siguientes reglas"

¿Hay algún error? Wxyz debería convertirse a abcd, ¿verdad?

Subtexto privado1_KeyPress(KeyAscii como entero)

Dim ckey como entero

Si KeyAscii >= Asc("a") y KeyAscii <= Asc(" z") Entonces

ckey = KeyAscii + 4

Si ckey > Asc("z") Entonces ckey = ckey - Asc("z") + Asc("a") - 1

KeyAscii = ckey

Fin si

Si KeyAscii >= Asc("A") y KeyAscii <= Asc("Z") Entonces

ckey = KeyAscii + 4

Si ckey > Asc("Z") Entonces ckey = ckey - Asc("Z") + Asc("A") - 1

KeyAscii = clave

Finalizar si

Finalizar sub