Здравствуйте, rootsoft, Вы писали:

R>Объясните пожалуйста — загружаю в РТБ текст из файла, после чего мне
R>нужно еще добавить текст(так же из файла) и чтобы тот старый тоже остался и не удалился
Не уверен, но попробуй так:

Dim bst as string
RichTextBox1.FileName = App.Path & "\text\1.rtf"
bst = RichTextBox1.TextRTF
RichTextBox1.FileName = App.Path & "\text\1.rtf"
RichTextBox1.TextRTF = bst & RichTextBox1.TextRTF

R>При получении фокуса(в том числе и при простом клике) хочу чтобы
R>выделялся весть текст в поле

Private Sub Text2_GotFocus()
Text2.SelStart = 0&
Text2.SelLength = Len(Text2.Text)
End Sub