si te han dejado que hagas eso como trabajo, no copies; piensa un poquito y dedicale tiempo, has el tuyo.
en buena hora encontraste uno hecho, pues ya viste como funciona; ahora tu inventa una solucion, eso es lo mejor.
al menos si quieres mejorar ese es el buen paso, no tomar lo que otro hizo.
vamos!, piensa en como cambiar las cadenas por otras; podrias usar muchas cosas, te doy otra ayuda: investiga sobe la funion xor de VB.
por ejemplo
5 XOR 6 = 3
y se le aplica al resultado otro xor con el mismo numero da el valor inicial, osea:
3 XOR 6 = 5
; ahora mira tu tabla ascci y ponte a pensar en que hacer!!