Article ID: 148717
Article Last Modified on 10/11/2006
Function is32Bit() As Boolean
is32Bit = False 'Assume Failure
If InStr(1, Application.OperatingSystem, "32", 1) > 1 Then
is32Bit = True
End If
End Function
Sub TestIT()
msgbox is32bit
End Sub
Additional query words: 5.00c API SDK 8.00 97 32bit 16bit xl97 XL
Keywords: kbhowto kbprogramming kbdtacode KB148717