>>857

RichTextBox使ってるなら、そんな面倒なことしなくても、

　Private Sub mnuOpenItem_Click()

　　CommonDialog1.Filter = "テキストファイル(*.txt)|*.txt"
　　CommonDialog1.ShowOpen
　　Rtxt1.LoadFile CommonDialog1.FileName , rtfText

　End Sub

これで十分な気がするけど。
ちなみに、大きなループの中で A$=A$ & B$ って操作をやると死ぬほど重く
なる＆メモリ効率が異様に悪くなるのであんましお勧めできない。