Dim lArr() As String
    Dim i As Integer
 
 
    List1.Clear
 
    List1.AddItem "Test1"
    List1.AddItem "Test2"
    List1.AddItem "Test3"
 
 
    For i = 0 To List1.ListCount - 1
        ReDim Preserve lArr(i)
        lArr(i) = List1.List(i)
    Next i