Acerca de los problemas de programación de VB al compilar y escribir programas de cifrado. . . . . es urgente

'Suma 7 con el código Ascii de cada letra y resta 10 si el valor del código Ascii después de la suma es superior a 90 pero no superior a 97,

'y 8 si es mayor que 122.

Dim a, b As Integer

a = Asc(Left(Text1.Text, 1)) 7

b = Asc(Derecha(Texto1.Texto, 1)) 7

Si ((a gt; 90) Y (a lt; 97))Entonces

a = a - 10

ElseIf a gt; 122 Then

a = a - 8

Fin

If ((b gt; 90) Y (b lt; 97))p>

Text2.MaxLength = 2

Text1.Text = ""

Text2.Text = ""

Fin del subtítulo