VBA объявляет API 64 бит 32 бит

' At the top of your module: works for both 32 and 64 bits
#If VBA7 Then
Public Declare PtrSafe Function GetVersionExA _			' 64 bits
        Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
#Else
  Public Declare Function GetVersionExA _				' 32 bits
        Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
#End If
VasteMonde