RichTextBox (i hate it!)

[Asaf_99]

Hi All!
I have a FileListBox named fleNotes, a RichTextBox called rtbNote.
I have this code:

Private Sub fleNotes_Click()

If fleNotes.filename = "" Then
    MsgBox "No note selected!"
Else
    rtbNote.LoadFile fleNotes.Path & "\" & fleNotes.filename
End If
End Sub

I want this code to open the file in rtbNote but it doesn't...
It was supposed to load a file made with this code that has txtNewNote which when saved, it is the filename.txt, a RichTextBox named rtbNewNote which is the content of the file, and a commandbutton named cmdCreate.
This is the code:

Private Sub cmdCreate_Click()
rtbNewNote.SaveFile App.Path & "\Notes\" & txtNewNote.Text & ".txt"
End Sub

This workd but it makes the content something close to gibberish.

Can anybdy help me???