Buenas

Para hacerlo sencillo en vez de poner un text box multilinea usa toda una sola linea con separadores y split

text1.text = "Hola\como\estas?"
Dim Lista()$
Lista() = Split(Text1.text,"\")
For i = 0 To Lista
List1.additem Lista(i)
Next i

Eso me aprece mas sencillo que respetar el salto de linea, pero si igual es lo que queres hacer justamente agrega por linea del textbox de la misma manera.

Saludos