perchè in questo modo

Dim s() As String
Dim i As Integer

Do While (quale condizione?)
s = Split(Text1.Text, vbCrLf)

Text2.Text = s(i)
Text3.Text = s(i)
'...
i=i+1
Loop

funziona ma non so a che numero d'indice digli di fermarsi