Recent Addins ADO Application Arrays Charts Commandbars Count Dates Dialogs Events File access Files & Folders Functions Games Help Import & Export Lookup Off topic Other Outlook PivotTables Power Query Printing Problem solving Read me Searching Sorting Sound Strings Sum Time VBA programming VBE Workbooks Worksheets

Determine the type of operating system

 1999-08-16    Other    0    237

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