标题：VBA执行错误

在4.5版和4.6版VBA执行   Set Wrap = CreateObject("DynamicWrapper")语句时，出现如下错误。4.2以前版本正常。
此主题相关图片如下：dfu{3~gadfdtk7%o(18.jpg

32位金字塔
Dim UserWrap
Set UserWrap = CreateObject("DynamicWrapper")
'准备使用GetPrivateProfileString这个API函数
UserWrap.Register "kernel32.DLL", "GetPrivateProfileString", "i=ssssls","f=s", "r=l"

64位金字塔
Dim UserWrap
Set UserWrap = CreateObject("DynamicWrapperX")
'准备使用GetPrivateProfileString这个API函数
UserWrap.Register "kernel32.DLL", "GetPrivateProfileString", "i=ssssls","f=s", "r=l"

注意：64位金字塔的对象名与32位不同。