BUENO ME DEJARON HACER UN ENCRITADOR DE TEXTO
para mi buena suerte encontre uno echo
ahora la cosa o el problema  es algunos codigos no entiendo
aver si me dan una manino 
cual es para que sea un codigo  ASCII
esto lo que mas no entiendo
si son funciones o variables =)

    Dim strTempChar As String 'Declaración de la variable
    'Crea un ciclo para cada uno de los caracteres dentro de la cadena
    For i = 1 To Len(Text)

            If Asc(Mid$(Text, i, 1)) < 128 Then
                strTempChar = Asc(Mid$(Text, i, 1)) + 128
            ElseIf Asc(Mid$(Text, i, 1)) > 128 Then
                strTempChar = Asc(Mid$(Text, i, 1)) - 128
            End If
        Mid$(Text, i, 1) = Chr(strTempChar)

    Next i
    'Indica cual es la funcion de crypt
    Crypt = Text
    '
End Function

eso es todo el formulario
------------------
Public Function Crypt(Text As String) As String
    '
    '
    '
    Dim strTempChar As String 'Declaración de la variable
    'Crea un ciclo para cada uno de los caracteres dentro de la cadena
    For i = 1 To Len(Text)

            If Asc(Mid$(Text, i, 1)) < 128 Then
                strTempChar = Asc(Mid$(Text, i, 1)) + 128
            ElseIf Asc(Mid$(Text, i, 1)) > 128 Then
                strTempChar = Asc(Mid$(Text, i, 1)) - 128
            End If
        Mid$(Text, i, 1) = Chr(strTempChar)

    Next i
    'Indica cual es la funcion de crypt
    Crypt = Text
    '
End Function

Private Sub CmdCrypt_Click()
    '
    'cifra lo que se haya escrito en el textbox1
    '
    Dim strTextCodificar As String      'Declración de la variable
        strTextCodificar = Text1.Text   '
        Crypt strTextCodificar          'cifrado de la variable
        Text2.Text = strTextCodificar   'Mostrar el resultado de la cifrado
        Label1.Caption = strTextCodificar
    '
End Sub

Private Sub cmdDecrypt_Click()
    '
    'descifra lo que este en el textbox 2
    '
    Dim strTextCodificar As String   'Declaracion de la variable
        strTextCodificar = Text2.Text
        Crypt strTextCodificar          'Desencriptacion de la variable
        Text1.Text = strTextCodificar   'Mostrar el resultado de la desencriptación
        Label1.Caption = strTextCodificar
    '
End Sub

Private Sub Command1_Click()
    Text1.Text = ""
    Text2.Text = ""
End Sub

Private Sub Form_Load()
    '
    'limpia los TextBoxs del formulario
    '
    Text1.Text = ""
    Text2.Text = ""
    '
End Sub

ves a leer un rato primero.

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!!