Private Sub Form_Load()
Dim TmpStr As String, hFile As Long
RichTextBox1.LoadFile App.Path & "\text\1.rtf"
hFile = FreeFile
Open App.Path & "\text\2.rtf" For Input As hFile
TmpStr = Input(LOF(hFile), hFile)
Close hFile
RichTextBox1.SelStart = Len(RichTextBox1.TextRTF)
RichTextBox1.SelRTF = vbCrLf & vbCrLf
RichTextBox1.SelRTF = TmpStr
End Sub