Usa la Split ...

Dim arr() As String

arr = Split(Text1.Text, vbCrLf)
avrai nel vettore una riga per elemento