Вот это работает, только без форматирования, а твой вариант не работает, люди хелп — нужно тоже самое только, чтобы форматирование сохранялось!

Так не сохраняется:

Dim strRTB As String

RichTextBox1.FileName = App.Path & "\text\1.rtf"

strRTB = RichTextBox1.Text & vbCrLf & vbCrLf

RichTextBox1.FileName = App.Path & "\text\2.rtf"

RichTextBox1.TextRTF = strRTB & RichTextBox1.Text