No se mucho sobre algoritmos de encriptacion (al menos no mas de saber que existen muchos) tal vez alguien te pueda pasar alguno eficaz,
Pero sobre el archiconocidísimo mecanismo de sumar o restar determinado valor a cada caracter:
Dim i As Integer
Private Sub cmdEncriptar_Click()
For i = 1 To Len(txtLimpio.Text)
txtEncriptado.Text = txtEncriptado.Text + Chr(Asc(Mid(txtLimpio.Text, i, 1)) + 25)
Next i
End Sub
Private Sub cmdDesencriptar_Click()
For i = 1 To Len(txtEncriptado.Text)
txtDesencriptado.Text = txtDesencriptado.Text + Chr(Asc(Mid(txtEncriptado.Text, i, 1)) - 25)
Next i
End Sub
Puedes inventarte algun artilugio por el estilo, el valor(25) por ejemplo puede ser reemplazado por la correspondiente posicion en un array.. etc.
Claro que si vas a implementar este sistema en algo medianamente serio esto de seguro parecerá un broma,.. aunque si eres algo creativo....
Saludos..