Use the VB intrinsic Constant >>> vbCrLf

Text1.Text = "This is Line 1" & vbCrLf & "This is Line 2"