Как сохранить RTF-файл в виде простого текста.
Переменная txt содержит содержимое открытого rtf-файла в виде простого текста.

Dim txt As String: txt = RichTextBox1.Text
Dim FN As Integer: FN = FreeFile
Dim FName As String: FName = "C:\index.txt"
Open FName For Output As #FN: Print #FN, txt: Close #FN