How do I add a series of data to a RTFtextbox at runtime?

e.g. of what I want
Name Address Age Salary

13/03/2002

John Creek hill 25 30,000
Mary Valley West 39 35,000

Total ===> 65,000
___________________________________________


Example of how I am trying to code it

rtb1.Font.Bold = True
rtb1.Font.Underline = True
rtb1.Text = "Name " & vbTab & "Addrress " & vbTab & "Age" & vbTab & " Salary

rtb1.Font.Bold = False
rtb1.Font.Underline = False
rtb1.Font.Italic = True
rtb1.text = Date()

rtb1.Font.Italic = False

For i = LBound(myArray) to UBound(myArray)
rtb1.Text = name(myArray) & vbTab & address(myArray) ........
next i
________________________________________________

I know when I do rtb1.Font.Underline = False I am setting this attribute False for the whole textbox, but how do I vary it.

Note:
My array is populated with data read for a file. The size of this file will vary but will generally be in excess of 2000 lines.

Hope someone can help.