Y no te es mejor usar ListBox? es mucho mejor xD
Pero bueno si eso es lo que necesitas.
Primero para que el Texbox se lea linea por linea Debes ponerlo en Multilinia en la ventana de propiedades.
Una ves echo esto agrega este code en el command1:
Dim Str() As String
Str = Split(Text1.Text, vbNewLine)
If Len(Text2.Text) <> 0 Then
Text2.Text = Text2.Text & vbNewLine & Str(0)
Else
Text2.Text = Text2.Text & Str(0)
End If
Text1.Text = ""
Recuerda que para que este funciones Debes poner los 2 TextBox con el Multiline en True!.
Espero que te siva, ya lo probe y funciono a la perfeccion.
Saludos!