借用了这段代码，导入很多个文件时就报错了？

 Public Function GetFileNameOnly(ByVal sTitle As String, ByVal sFileType As String, ByVal sExtension As String) As String

  Dim lResult As Long
  Dim pFile As OPENFILENAME   '申明打开文件对话框类实例
  Dim sFilter As String       '筛选条件
  Dim sFileName As String     '文件名变量

  sFilter = sFileType & Chr$(0) & "*." & sExtension & Chr$(0)
  sFileName = Space$(250) & Chr$(0)
  sTitle = sTitle & Chr$(0)
 
  With pFile
    .lStructSize = Len(pFile)
    .hwndOwner = 0&
    .hInstance = 0&
    .lpstrFilter = sFilter
    .lMaxFile = Len(sFileName)
    .lpstrFile = sFileName
    .lpstrTitle = sTitle
    .flags = OFN_ALLOWMULTISelect Or OFN_EXPLORER  '指为通用对话框并可以多选
  End With
 
  '输出获得的完整路径
  If GetOpenFileName(pFile) <> 0 Then
     GetFileNameOnly = pFile.lpstrFile
  Else
     GetFileNameOnly = ""
  End If
End Function

顶多可以导入10个文件，导入10个以上就报错了。我现在想导入40多个文件实现不了呢。

哪位帮忙解决下。。。