' 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