RichTextBox1.Font = "Courier"
RichTextBox1.Text = ""
RichTextBox1.SelUnderline = True
RichTextBox1.SelText = "Columna 1 Columna 2 Columna 3" & vbCrLf
RichTextBox1.SelUnderline = False
RichTextBox1.SelText = "Valor 1,1 Valor 1,2 Valor 1,3" & vbCrLf
RichTextBox1.SelText = "Valor 2,1 Valor 2,2 Valor 2,3" & vbCrLf