Dim oWshShell Dim szARC set oWshShell = CreateObject("WScript.Shell") szARC = oWshShell.ExpandEnvironmentStrings("%PROCESSOR_ARCHITECTURE%") MsgBox(szARC)