arrays

How do I take data from a list and put it into an array?

VB Code:

Dim lstArray() As String
Private Sub Command1_Click()
     ReDim Preserve lstArray(List1.ListCount)
     For X = 0 to List1.ListCount-1
             lstArray(x) = List1.List(x)
     Next
End Sub