list作为参数的函数有关问题

list作为参数的函数问题
主要功能是从list控件中取出所选中的内容，存入数组中供其他过程使用
Public Function arry(lst As ListBox) As String
  Dim i As Integer
  Dim j As Integer
  Dim m As Integer
  Dim n As Integer
  j = 0
  m = lst.SelCount
  n = lst.ListCount
  ReDim arry(m - 1) 此处是否可以重新定义，调试中出错，怀疑是这个问题
  For i = 0 To n - 1
  If lst.Selected(i) Then
  arry(j) = lst.List(i)
  j = j + 1
  End If
  Next i
   
End Function

[解决办法]

VB code

Public Function arry(lst As ListBox) As Variant    Dim i As Integer    Dim j As Integer    Dim m As Integer    Dim n As Integer    Dim arr()        j = 0        m = lst.SelCount        n = lst.ListCount    ReDim arr(m - 1)  '    此处是否可以重新定义，调试中出错，怀疑是这个问题    For i = 0 To n - 1        If lst.Selected(i) Then         arr(j) = lst.List(i)                j = j + 1        End If    Next i    arry = arr    End FunctionPrivate Sub Form_Load()For i = 0 To 10List1.AddItem iNextEnd SubPrivate Sub List1_Click()Dim aa = arry(List1)For i = 0 To UBound(a)MsgBox a(i)NextEnd Sub