Text to Secret Code Converter..

Function Crypt(ByVal Password As String) As String
Dim bChar As Byte
Dim I As Integer

For I = 1 To Len(Password)
    bChar = Asc(Mid$(Password, I, 1)) Xor &HFF
    Mid$(Password, I, 1) = Chr(bChar)
Next I
Crypt = Password
End Function

Option Explicit
Function EnCrypt(ByVal CryptString, _
                 Optional Password As String = "") As String

EnCrypt = ConvertString(Password) & "|" & ConvertString(CryptString)
End Function
Function DeCrypt(ByVal CryptString, _
                 Optional Password As String = "") As String
Dim iPtr As Integer
Dim sPass As String, sData As String
iPtr = InStr(CryptString, "|")
If iPtr > 1 Then sPass = ConvertString(Left$(CryptString, iPtr - 1))
If sPass = Password Then
    DeCrypt = ConvertString(Right$(CryptString, Len(CryptString) - iPtr))
Else
    DeCrypt = CryptString
End If
End Function

Private Function ConvertString(ByVal CryptString As String) As String
Dim bChar As Byte
Dim I As Integer

For I = 1 To Len(CryptString)
    bChar = Asc(Mid$(CryptString, I, 1)) Xor &HFF
    Mid$(CryptString, I, 1) = Chr(bChar)
Next I
ConvertString = CryptString
End Function