Hi.

I am working in an Encrypter/Decrypter.
I want the encryption to be saved in a file.
I do that, but when I open it, the string is not
the real one. There are unicode changes to
the string, like: 

What is more strange, my other encryption is
based in numbers only, I experience error with
that too.

I've also tried using .rtf, but no help.

Please can anyone suggest any way I can save
the string to a file and when open it again, it
will be not altered as I said above :S .

Code I use to load the string to rich text box in my app
is:

Code:
Public Function ReadFileContents(FileFullPath As String) As String
On Error Resume Next
Dim iFileNumber As Integer
Dim sAns As String

If Dir(FileFullPath) = "" Then Exit Function
iFileNumber = FreeFile
Open FileFullPath For Input As #iFileNumber
sAns = Input(LOF(iFileNumber), #iFileNumber)
Close #iFileNumber

If sAns = "" Then
MsgBox "Text file is empty!", vbInformation, "Encrypted Brain 2.0"
Else

If ovr.Value = 1 Then
txtDecrypt.Text = sAns
Else
txtDecrypt.Text = txtDecrypt.Text & sAns
End If

End If
End Function