te explicare. esos codes lo que hacen es pasar el caracter a ASCII (que es un numero y con los numro se puden hacer muchas operaciones) la funcion para ver el codigo ASCII de un caracter es Asc() y la contraria (ver el caracter de un codigo ASCII) Chr().
Sabiendo esto, un algoritmo lo que hace es recorrer caracter por caracter, el caracter que coje, lo convierte a ASCII y hace una operacion con ese numero, y luego lo pasa de nuevo a carcter. osea que si tenemos el siguiente code:
For i = 1 To Len(Datos)
cifrar = cifrar & Chr(Asc(Mid(Datos, i, 1)) +1)
Next
lo que hacemos es recorrer cada caracter, pasarlo a ASCII, suma 1 al valor ASCII y lo convierte de nuevo a caracter.
Ahora, para descifrar es la operacion contraria:
For i = 1 To Len(Datos)
Descifrar = Descifrar & Chr(Asc(Mid(Datos, i, 1)) -1)
Next
Esta no es la forma de encriptacion mas elaborada
pero, solo es para que entiendas mas o menos como funciona esto.
Espero hallas entendido.
Saludos.