These pages are no longer updated and are only available for archive purposes.

Click here to visit the pages with updated information.

Determine the type of operating system

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

Document last updated 1999-08-16 12:49:52