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