Адаптация кода для 64 битных систем (x64) - VBA

Формулировка задачи:

всем, здравствуйте. помогите пожалуйста решить проблему. Есть книга с макросами, написанная для 32 битной платформы - там все работает ок. Сейчас у меня win7 x64 и Office 2010 x64 и возникла ошибка в коде:

Private Declare Function GetUserNameDomain Lib "Secur32.Dll" Alias "GetUserNameExA" (ByVal NameFormat As EXTENDED_NAME_FORMAT, ByVal lpNameBuffer As String, ByRef nSize As Long) As Long
 
Private Declare Function NetUserGetInfo Lib "netapi32" (ByVal servername As String, ByVal username As String, ByVal level As Long, bufptr As Long) As Long
 
Private Declare Function GetUserLoginName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
 
Private Declare Function NetApiBufferFree Lib "netapi32" (ByVal Buffer As Long) As Long

Excel просит обновить код и использовать параметр PtrSafe??? Може подсказать как и что переписать для того чтобы работало как x86 так и x64

Решение задачи: «Адаптация кода для 64 битных систем (x64)»

textual
                            Листинг программы 
                        

                            #If Win64 Then
 Public Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSrc As Any, ByVal ByteLen As LongPtr)
#Else
 Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSrc As Any, ByVal ByteLen As Long)
#End If
                        