[RESOLVED] how would tranfer the words in text1 to list1

[newprogram]

on a command 1_click I want to take all the stuff in text1 and put it in list1
text1 is a multiline and looks like
hi
go
today
and so no

and sould load in list1 the same way
hi
go
today
and so no

[Ellis Dee]

Private Sub Command1_Click()
    Dim strArray() As String
    Dim i As Long
    
    strArray = Split(Text1.Text, vbNewLine)
    With List1
        .Clear
        For i = 0 To UBound(strArray)
            .AddItem strArray(i)
        Next
    End With
    Erase strArray
End Sub

[newprogram]

That works great thank you !!

Private Sub Command1_Click()
    Dim strArray() As String
    Dim i As Long
    
    strArray = Split(Text1.Text, vbNewLine)
    With List1
        .Clear
        For i = 0 To UBound(strArray)
            .AddItem strArray(i)
        Next
    End With
    Erase strArray
End Sub