Determining If OS Is 32-Bit Or 64-Bit Using VBA

[CaliKidd]

Is there a way (perhaps using Win32API or Win64API) to determine if a system is running a 32-bit or 64-bit operating system? For example, I am running Win 7 64-bit and when I click on Computer-Properties, it shows:

System Type: 64-bit Operating System.

I'd like to capture that info via VBA, if possible. It would be helpful since there are 32-bit and 64-bit versions of the newer OS's.

 

[Scott Huish]

Function Is64bit() As Boolean
    Is64bit = Len(Environ("ProgramW6432")) > 0
End Function

 

[CaliKidd]

Thank you! Interesting... It seems like the logic is the OS is 64-bit if "C:\Program Files" is the program directory and 32-bit if "C:\Program Files (x86)" is the case.

 

[Scott Huish]

I just looked it up. The logic seems to be if that environment variable returns anything or not, as that parameter probably doesn't exist in the 32-bit version.