Visual Basic - Colocar en listbox el valor de un textbox...

Saludos!! necesito urgentemente saber como paso el valor de un textbox multilinea que contiene datos de un campo de la BD pero la informacion esta guardada de manera lineal, es decir 1-Agua 2-Electricidad 3-Limpieza .... y quiero que al pasarlos al listbox se separe cada elemento y se coloquen uno debajo de otro en la lista asi
1-Agua
2-Electricidad
3-Limpieza
4-etc

De ante mano gracias..es urgente porfa!!!

Hola
Si la caja de texto sólo tiene texto y espacios, y no tiene tabulaciones ni retornos de carro y además el primer carácter no es un espacio (no se... demasiadas restricciones) esto puede funcionar.

While I <= Len(nombreCajaTexto)
If MID(nombreCajaTexto, I, 1) = “ “ Then
nmbreListBox.AddItem Trozo
Trozo = “”
Else
Trozo = Trozo + MID(nombreCajaTexto, I, 1)
End If
I = I + 1
Wend

Trozo es una variable String
I es una variable Integer
Espero que te sirva. No lo he comprobado, pero si no funciona te dará una idea de lo que puedes hacer.