Visual Basic - Textbox Multiline

Hola amigos necesito que por favor me ayuden con este problema, tengo un formulario con 2 textbox en el !ero. la Opcion Multiline es False pero en el 2do. Textbox la Opcion Multiline es True como hago para pasar un valor desde el text1 hasta el text2 pero en el textbox2 necesito que toda la informacion que coloque en el textbox1 aparesca en el textbox2 en forma de vector, como hago para que cuandop haga enter este valor pase al otro textbox y asu vez me habar otra linea.

En le text1 (evento key press)

If keyascii = 13 then
text2.text = text1.text
text1.text = text1.text & vbcrlf
endif

Text2,Text = Text1.text & VbNewline