¿Cómo escribir el programa para crear el juego de contraseñas definitivo usando VB? . . . urgente

Subcomando privado1_Click()

i = Texto1.Text

i = i + 1: i = i - 2: i = i * 3: i = i / 4

End Sub

Sub Comando privado2_Click()

i = Texto2.Text

i = i * 4: i = i / 3: i = i + 2: i = i - 1

End Sub

'Cifrado y descifrado en secuencia