NONE

Private Sub cmdEncrypt_Click() pass$ = Len(password.Text) 'the number you shift Each letter To encrypt tmpstr = Len(Text1.Text) If tmpstr = "0" Then MsgBox ("You must first Type In something To Encrypt") 'You can't encrypt nothing Exit Sub End If For i = 1 To tmpstr letter = Mid$(Text1.Text, i, 1) 'takes the ascii value and adds the length of the password To it encstr = Asc(letter) + pass$ newstr = Chr$(encstr) 'changes ascii value To a character encrypted$ = encrypted$ & newstr 'puts all the encrypted characters together Next i Text1.Text = encrypted$ 'puts the encrypted String in text box End Sub Private Sub cmdDecrypt_Click() pass$ = Len(password.Text) 'this is the exact same For the Encrypt Function tmpstr = Len(Text1.Text) 'the only difference is that instead of adding the lenght of password.text 'it is subtracted If tmpstr = "0" Then MsgBox ("You must first Type In something To Decrypt") Exit Sub End If For i = 1 To tmpstr letter = Mid$(Text1.Text, i, 1) encstr = Asc(letter) - pass$ newstr = Chr$(encstr) decrypted$ = decrypted$ & newstr Next i Text1.Text = decrypted$ End Sub