请教EXCEL2013错误91

开始运行的时候会出现

Declaer 改成Declare PtrSafe就会出现上面的错误

**************************************************************
* Author: 刘林丰(liulinfeng)
* ID: 100448
* Date: 2009-07-08
**************************************************************
Option Explicit
Private Declare PtrSafe Function DcGetInstance Lib "DirectCom" Alias "GETINSTANCE" (FName As String, className As String) As Object
Private Declare PtrSafe Function DcGetInstanceLastError Lib "DirectCom" Alias "GETINSTANCELASTERROR" () As String
Private Declare PtrSafe Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Fso As New FileSystemObject
Private mobjHelper As Object
*CSEH: UniErrRaise
Public Property Get Helper() As Object
Dim strLibFile As String
If mobjHelper Is Nothing Then
strLibFile = Fso.BuildPath(ThisWorkbook.path, "QuoterMacro.dll")
Set mobjHelper = CreateObjectEx(strLibFile, "QuoterMacro", "Helper")
Else
End If
Set Helper = mobjHelper
End Property
Public Function CreateObjectEx(ByVal libFullPath As String, ByVal projectName As String, ByVal className As String) As Object
*<EhHeader>
On Error GoTo ErrorHandle
*</EhHeader>
Dim lngPos As Long
Dim strProgID As String
Dim obj As Object
Dim errMsg As String
*调试模式，从注册表中创建组件
100 If IsDebugMode() Then
102 strProgID = projectName & "." & className
104 Set CreateObjectEx = VBA.CreateObject(strProgID)
*非调试，从文件中直接创建组件
Else
106 Set obj = DcGetInstance(libFullPath, className)
108 If obj Is Nothing Then
110 errMsg = DcGetInstanceLastError()
112 Err.Raise vbObjectError, , errMsg
Else
End If
114 Set CreateObjectEx = obj
End If
*<EhFooter>
Exit Function
ErrorHandle:
MsgBox Err.Description & " at Common.CreateObjectEx." & Erl, vbCritical
*</EhFooter>
End Function
*CSEH: UniErrRaise
Public Function AddBackslash(ByVal strPath As String) As String
*<EhHeader>
On Error GoTo ErrorHandle
*</EhHeader>
100 If Right(strPath, 1) = "\" Then
102 AddBackslash = strPath
Else
104 AddBackslash = strPath & "\"
End If
*<EhFooter>
Exit Function
ErrorHandle:
MsgBox Err.Description & " at Common.AddBackslash." & Erl, vbCritical
*</EhFooter>
End Function
*是否调试模式
Public Function IsDebugMode() As Boolean
*<EhHeader>
On Error GoTo ErrorHandle
*</EhHeader>
Dim strIniFile As String
Dim strTemp As String
100 strIniFile = ThisWorkbook.path & "\QuoterMacro.ini"
102 If Len(Dir(strIniFile)) = 0 Then
Exit Function
Else
End If
104 strTemp = Trim(UCase(GetIniSetting(strIniFile, "General", "DebugMode")))
106 If strTemp = "TRUE" Then
108 IsDebugMode = True
Else
End If
*<EhFooter>
Exit Function
ErrorHandle:
MsgBox Err.Description & " at IsDebugMode line " & Erl, vbCritical
*</EhFooter>
End Function
*记录错误日志
Public Sub ReportError(ByVal ErrorSource As String, Optional ByVal Memo As String, Optional ByVal ShowMessage As Boolean = False)
Dim strErrDesc As String
Dim strFilename As String
strErrDesc = Err.Description
strFilename = ThisWorkbook.path & "\Log\StartUpMacro.log"
Call mobjHelper.ReportError(strFilename, "StartUpMacro." & ErrorSource, Memo, Err, Erl)
If ShowMessage = True Then
MsgBox strErrDesc, vbCritical, "Error"
Else
End If
On Error Resume Next
End Sub
*抛出错误
Public Sub RaiseError(ByVal ErrorSource As String, Optional ByVal Memo As String)
Call mobjHelper.RaiseError("StartUpMacro." & ErrorSource, Memo, Err, Erl)
On Error Resume Next
End Sub
***************************************************************************************
** 功能：从INI文件中读取设置
**
** 入口参数：
** FileName: 要读取INI文件名称
** Section: 设置段名称
** Key: 设置键名称
** DefaultValue: 默认值
**
** 出口参数：
**
** 返回值 ：读到的设置值
**
** 调用谁：
**
** 被谁调用：
**
** 作者：文逸斌
**
** 建立时间：2004-11-2
**
**最近修改时间：2004-11-2
***************************************************************************************
Public Function GetIniSetting(ByVal FileName As String, _
ByVal Section As String, _
ByVal Key As String, _
Optional ByVal DefaultValue As String = "") As String
Const BUFFER_SIZE = 1024
Dim strBuffer As String * BUFFER_SIZE
Dim lngZeroPos As Long
100 Call GetPrivateProfileString(Section, Key, DefaultValue, strBuffer, BUFFER_SIZE, FileName)
102 lngZeroPos = InStr(1, strBuffer, Chr(0), vbBinaryCompare)
104 If lngZeroPos = 0 Then
106 GetIniSetting = Trim(strBuffer)
Else
108 GetIniSetting = Trim(Left(strBuffer, lngZeroPos - 1))
End If
End Function

求助啊