Tambien puedes acerlo con la Constante predefinida vbCrLf que manda a la siguiente linea.
Cita: Ejemplo1:
Text1 = "Texto1" & vbCrLf & "Texto2" & vbCrLf & "Texto3"
Ejemplo2:
'agregar a la linea siguiente
Text1 = Text1 & vbCrLf & "Texto3"
'agregar a la linea siguiente desde la primera
Text1 = Text1 & "Texto3" & vbCrLf