如何複製RichTextBox的文字格式(編號:6008)

小弟寫一個小程式
程式大概如下
i3 = InStr(RichTextBox1.text,D3) '判斷
If F i3> 0 Then
RichTextBox1.SelStart = I3 - 1
RichTextBox1.SelLength = j7
RichTextBox1.SelColor = vbRed
應為txt 檔好大 跑起來要半個小時
最後知道問題出在 RichTextBox1.text 文字太大
最後想到 若能將 RichTextBox1.text
的文字資料分一點 給RichTextBox2.text
然後在將RichTextBox2.text 相加
數度 就會快一些
問題 就是 格式 就是不能複製
還是有什麼比較好的解決方案嗎 不用那麼麻煩
謝謝 你的閱讀