Private Function Registry_Read(Key_Path, Key_Name) As Variant
On Error Resume Next
Dim Registry As Object
Set Registry = CreateObject("WScript.Shell")
Registry_Read = Registry.RegRead(Key_Path & Key_Name)
End Function
' This function read the value from registry editor
Private Sub Test()
'Type-1
MsgBox Registry_Read("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows \CurrentVersion\", "ProgramFilesDir (x86)")
'if 64 bit it will return the path name
'if 32bit , it will return empty string
'from this we can identify 32 bit or 64 bit.
'Type-2
Dim sak As String
sak = Registry_Read("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\", "Identifier")
If InStr(1, sak , "64") Then
MsgBox "Its 64 bit version !", vbInformation, "BASE"
' Write code as you want
ElseIf InStr(1,sak , "x86") Then
MsgBox "Its 32 bit version !", vbInformation, "BASE"
' Write code as you want
End If
End Sub
Call the Test function. For example call the test function in Form Load event! with your own risk
I was collected this information in webpages!