quante righe nalla mia text

[tas]

Se le righe vanno a capo con vbCrLf, puoi usare la funzione Split:

Dim s() As String
Dim i As Integer

s = Split(Text1.Text, vbCrLf)

Text2.Text = s(0)
Text3.Text = s(1)
'...