Leer un textbox

Hola,
Aqui va un ejemplo:
Se necesita un textbox1 (multiline) y un listbox1

Dim lineas() As String
Dim i%
lineas = Split(TextBox1.Text, vbCrLf)
ListBox1.Items.Clear()
For i = lineas.GetLowerBound(0) To lineas.GetUpperBound(0)
ListBox1.Items.Add(lineas(i))
Next

Hola a todos
tengo un textbox con multilinea y necesito extraer linea
por linea. alguien podria ayudarme.

saludos
.