Visual Basic 6 - lista da text

Ciao a tutti,
vorrei che una lista (list1), prenda la lista dei nomi da un text box...

esempio:

nel text (multiline)c'e scritto

ciao
come va
cm stai

nella lista, deve esserci scritto

ciao
come va
cm stai

penso sia una cosa facile da fare, ma purtroppo io non ci sono riuscito...

ciao...

Private Sub Command1_Click()
Dim testo() As String
testo = Split(Text1.Text, vbCrLf)
Dim x As Integer
For x = 0 To UBound(testo)
List1.AddItem testo(x)
Next x
End Sub

grazie GrG

6 GRANDE