Instead of appending the values to a variable can you try appending it directly to the RichTextBox if it makes any difference?
Code:
RichTextBox1.SelStart = Len(RichTextBox1.Text)
RichTextBox1.SelText vbNewLine & "*************************"