» Determine the type of operating system using VBA in Microsoft Excel

VBA macro tip contributed by Erlandsen Data Consulting offering Microsoft Excel Application development, template customization, support and training solutions The function below will return True if the operating system in use is 32 bit.

Function OSis32BIT() As Boolean
    OSis32BIT = False
    If InStr(Application.OperatingSystem, "32-bit") Then 
        OSis32BIT = True
    End If
End Function

Sub TestOSis32BIT()
    If OSis32BIT Then
        MsgBox "You use a 32bit operating system", , _
            Application.OperatingSystem
    Else
        MsgBox "You don't use a 32bit operating system", , _
            Application.OperatingSystem
    End If
End Sub