EncryptString

Public Function EncodeText(TheText As String) As String
Dim Letter As String
Dim TextLen As Integer
Dim Crypt As Double
TextLen = Len(TheText)
For Crypt = 1 To TextLen
Letter = Asc(Mid(TheText, Crypt, 1))
Letter = Letter Xor 255
Result$ = Result$ & Chr(Letter)
Next Crypt
EncodeText = Result$
End Function