LstBToArray

Public Function ListBoxToArray(ctrl As Control) As String()
Dim index As Long

' if the control isn't a ListBox, ComboBox or one of their

' variant, the following statement raises an error

If ctrl.ListCount > 0 Then
ReDim res(0 To ctrl.ListCount - 1) As String

For index = 0 To strl.ListCount - 1
res(index) = ctrl.List(index)
Next
End If
ListBoxToArray = res()
End Function