Or use SelText.
Code:
Text1.SelText = vbNewLine