Sur un Form 1 RichTextBox et 1 CommandButton
Option Explicit

Private Sub Form_Load()
RichTextBox1.TextRTF = ""
RichTextBox1.Text = "Essai pour ROUGE" & vbCrLf & "Essai pour BLEU"
End Sub
...