I have a routine called NewMouseHook which I have been using for years.
I got it online and dont really understand it but it worked in 32 bit.
During the upgrade to 64 bit Office I changed the declare to:
Private Declare PtrSafe Sub CastToObject Lib "kernel32" Alias "RtlMoveMemory" (ByRef Dest As Object, ByRef source As Long, ByVal Size As Long)

But the compiler errors at VarPtr on the following line:
       Call CastToObject(MouseHookLoader, VarPtr(VarPtr(LoaderVTable)), SIZEOF_PTR32)

I have searched online with no success.
Sorry if Im a thicko but can anyone help me resolve this, please?