The problem is that you are just giving it the new text, you need to put the previous text in too:
VB Code:
  1. Text1.Text = [u]Text1.Text &[/u] TextString & vbNewLine