Visual Basic - Ayudenme con los text

Hola quiero hacer que si yo pongo un texto en un textbox o richtextbox barias lineas de text AL apretar un boton pase la primera linea a otro textbox y al apretar otraves el boton pase la linea siguiente haci hasta completar todo el texto .
si saben como hacerlo expliquen porfa....
gracias .
cHao

Mira copia lo siguiente:

Private Sub Command1_Click()

Dim DAT2, DAT1

DAT2 = Chr(13) & Chr(10)

DAT1 = InStr(Text1, DAT2)

If DAT1 = 0 Then Exit Sub

Text2 = Text2 & Mid(Text1, 1, DAT1 - 1)

End Sub

no me funciono solo pasa la primera linea al otro texto :( noi se como arreglarlo

Me falto colocar esto

Text1 = Mid(Text1, DAT1 + 2)

Entonces queda asi toda la funcion

Private Sub Command1_Click()

Dim I, DAT1

I = Chr(13) & Chr(10)

DAT1 = InStr(Text1, I)

If DAT1 = 0 Then Exit Sub

Text2 = Text2 & Mid(Text1, 1, DAT1 - 1) & I
Text1 = Mid(Text1, DAT1 + 2)


End Sub