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 Printerfriendly version