Dim oWshShell Dim szArch Set oWshShell = CreateObject("WScript.Shell") szArch = oWshShell.Environment("Process").Item("PROCESSOR_ARCHITECTURE") MsgBox szArch