Private Declare Function GetProcAddress Lib "kernel32" _
 (ByVal hModule As Long, _
 ByVal lpProcName As String) As Long
Private Declare Function GetModuleHandle Lib "kernel32" _
 Alias "GetModuleHandleA" _
 (ByVal lpModuleName As String) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function IsWow64Process Lib "kernel32" _
 (ByVal hProc As Long, bWow64Process As Boolean) As Long
Private Declare Function GetSystemWow64Directory Lib "kernel32.dll" _
 Alias "GetSystemWow64DirectoryA" (ByVal lpBuffer As String, ByVal uSize As Long) As Long

Public Function Is64bit() As Boolean
  Dim handle As Long, bolFunc As Boolean

  ' Assume initially that this is not a Wow64 process
  bolFunc = False

  ' Now check to see if IsWow64Process function exists
  handle = GetProcAddress(GetModuleHandle("kernel32"), _
   "IsWow64Process")

  If handle > 0 Then ' IsWow64Process function exists
    ' Now use the function to determine if
    ' we are running under Wow64
    IsWow64Process GetCurrentProcess(), bolFunc
  End If

  Is64bit = bolFunc

End Function

If Is64bit = True Then Me.Caption = "x64" Else Me.Caption = "x86"

Private Sub Command1_Click()
    If Is64bit Then Me.Caption = "x64" Else Me.Caption = "x86"
    MsgBox Is64bit
    
    Dim x64 As Boolean
    x64 = Is64bit
    If x64 Then Me.Caption = "x64" Else Me.Caption = "x86"
    MsgBox Is64bit
    
    If Is64bit Then
      Me.Caption = "x64"
    Else
      Me.Caption = "x86"
    End If
End Sub