VB 用户定义类型未定义 请求协助！

Private Sub MyProc(ByVal Folder As String)   //  这一句"用户定义类型未定义"
          Dim objFile
          Dim objFolder
          Dim fso As New FileSystemObject
          Set objFolder = fso.GetFolder(Folder)
          For Each objFile In objFolder.Files
                  MyProc2 objFile.Path
          Next

  End Sub
 Private Sub MyProc2(filename As String)
        Dim openfile As String
        Dim openfullname As String
        
        openfullname = ThisWorkbook.FullName '获取当前excel的绝对路径
        openfile = ThisWorkbook.Name '获取当前excel的相对路径（文件名）
        sheets_HB filename, openfile
        
        
  End Sub

运行时提示：  用户定义类型未定义

不知道问题在哪里，请大侠们帮忙一下啦，谢谢了。 Folder是个保留字吧？
有没有解决办法啊？ 菜单：工程->引用->Microsoft Scriping Runtime

Private Sub MyProc(ByVal MyFolder As String) // 这一句"用户定义类型未定义"
  Dim objFile
  Dim objFolder
  Dim fso As New FileSystemObject
  Set objFolder = fso.GetFolder(MyFolder)
  For Each objFile In objFolder.Files
  MyProc2 objFile.Path
  Next

  End Sub
 Private Sub MyProc2(filename As String)
  Dim openfile As String
  Dim openfullname As String
    
  openfullname = ThisWorkbook.FullName '获取当前excel的绝对路径
  openfile = ThisWorkbook.Name '获取当前excel的相对路径（文件名）
  sheets_HB filename, openfile
    
    
  End Sub
FSO没引用

补充：VB ,  VBA