добавление PtrSafe к вызову функции vba в dll третьей стороны приводит к ошибке в 64-битном Excel

Question

У меня есть проект VBA, который делает 3 вызова в стороннюю dll, как показано ниже:

Private Declare Function cm_checkprotection Lib "ACPPYRAMID.DLL" Alias "CM_CheckProtection" (ByVal options As Long) As Long
Private Declare Function cm_getextendederror Lib "ACPPYRAMID.DLL" Alias "CM_GetExtendedError" (ByVal ExtErr As Any) As Long
Private Declare Function cm_getproductkeya Lib "ACPPYRAMID.DLL" Alias "CM_GetProductKeyA" (ByVal ProductKey As Any) As Long

Я пытаюсь перенести этот проект в 64-разрядный Excel, но когда я добавляю 'PtrSafe'к объявлению Excel выдает ошибку «Ожидается: выражение», как показано на прикрепленном изображении.

Любая идея, как решить эту проблему?

TIA,

Фрэнк

Answer 1

Сместить позицию на

Private Declare PtrSafe Function