关于独立RTF文件合并的问题

一直很困惑,如何将两个RTF文件合并,使用普通的方法合并后,合并后的文件超大,并且显示的内容只是第一个文件的内容,我想是由于文件尾的原因造成的,即使使用COPY功能,得到的合并文件虽说小了一点,但是显示的内容和在代码中合并的文件是一样的.由于文件是图文混排的,所以把STRING合并是行不通的,然后一直在找方法.

目前找到的最佳方法是将RTF分别读入RICHTEXTBOX,一个为显示的对象,一个为运行过程中创建的对象,这个运行过 程中创建的对象只需要LOADFILE,然后全选,然后使用SELECTEDRTF,复制后在显示的对象上进行粘贴,这样做并不麻烦,但我总认为这不是最好的办法,不过目前也没有什么好办法,谁让我对于文件操作一窍不通.困难啊困难.

复制粘贴的代码如下:

Public Shared Function RTFFileMerge(ByVal FirstFile As String, ByVal SecondFile As String) As Boolean
            Dim rtb1 As New RichTextBox
            Dim rtb2 As New RichTextBox
            Dim rFlag As Boolean = False
            Try
                rtb1.LoadFile(FirstFile)
                rtb2.LoadFile(SecondFile)
                rtb2.SelectAll()
                rtb2.Copy()
                rtb1.AppendText(Chr(13))
                rtb1.Paste()
                rtb1.SaveFile(FirstFile)
                rtb2.Dispose()
                rtb1.Dispose()
                rFlag = True
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
            Return rFlag
        End Function