这段代码最后部分怎么运行不了哦？

Dim dc As New Dictionary
Dim arr() As String
Dim m As Integer
Sub SearchFile(MyPath As String)


m = 0
  If MyPath = "" Then Exit Sub
  Dim Myname As String, dir_i() As String, i As Long, idir As Long
  If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\"
  On Error Resume Next
  Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly Or vbSystem)
  Do While Myname <> ""
  DoEvents
  If Myname <> "." And Myname <> ".." Then
  If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录
  idir = idir + 1
  ReDim Preserve dir_i(idir) As String
  dir_i(idir - 1) = Myname
  Else
   
  If Myname Like "*xls" Or Myname Like "*xlsx" Then
  ReDim Preserve arr(0 To m) As String
  List1.AddItem MyPath & Myname '把找到的文件显示到列表框中
  arr(m) = MyPath & Myname
  ' List1.AddItem arr(m)
  m = m + 1
  End If
  End If
  End If
  Myname = Dir '搜索下一项
  Loop
  For i = 0 To idir - 1
  Call SearchFile(MyPath + dir_i(i))
  Next
  ReDim dir_i(0) As String
End Sub

Private Sub Command1_Click()
  Dim sh
  Dim oFolder
  Set sh = CreateObject("shell.application")
  Set oFolder = sh.BrowseForFolder(Me.hWnd, "请选择文件夹", BIF_EDITBOX Or BIF_RETURNONLYFSDIRS Or BIF_NONEWFOLDERBUTTON)
  'If Not oFolder Is Nothing Then
  SearchFile oFolder.Self.Path
For i = 0 To UBound(arr)
  List1.AddItem arr(m)
Next i
End Sub

For i = 0 To UBound(arr)
  List1.AddItem arr(m)
Next i

这句话错了。搞不明白，数组怎么会定义错呢？

arr(m)?

m?

你要在这个循环里添加巨多次的arr(m)么?