Necesito pasar la dirección de una función en VBA

Quiero ejecutar esta función en Access 16 (me funcionaba en Access 2000):

Public Declare PtrSafe Function CopyFileEx Lib "kernel32.dll" Alias "CopyFileExA" _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal _
LpProgressRoutine As Long, lpData As Any, ByRef pbCancel As Long, ByVal _
dwCopyFlags As Long) As Long

Necesito pasar la dirección de la interrupción a disparar mediante la función AddressOf pero no me funciona. ¿Alguien sabe como hacer funcionar esta función en Access 16?