i want to do something like this

Private Sub Command1_Click()

RichTextBox1.TextRTF = RichTextBox1.TextRTF & vbcrlf & RichTextBox2.TextRTF

End Sub

but it doesnt work, any idea?