Private Const VER_PLATFORM_WIN32s =  0 \nPrivate Const VER_PLATFORM_WIN32_WINDOWS =  1 \nPrivate Const VER_PLATFORM_WIN32_NT =  2 

Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _\n(ByVal lpBuffer As String, ByVal nSize As Long) As Long

'http://www.freevbcode.com/ShowCode.asp?ID=9043
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


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

Private Declare Function GetSystemWow64Directory Lib "Kernel32.dll" _
Alias "GetSystemWow64DirectoryA" (ByVal lpBuffer As String, ByVal uSize As Long) As Long
Public Function GetSystemWow64Dir() As String
Dim evar As String
Dim elen As Long
    evar = String( 256 , " ")
    elen = GetSystemWow64Directory(evar, Len(evar))
    If elen =  0  Then
        'ERROR_CALL_NOT_IMPLEMENTED= 120 (0x78) ???
        GetSystemWow64Dir = ""
    Else
        evar = Left(evar, InStr(evar, Chr( 0 )) -  1 )
        GetSystemWow64Dir = CorrectDir(evar)
    End If
End Function
Public Function CorrectDir(str As String) As String
    If Not (Right(str,  1 ) = "\") Then
        CorrectDir = str & "\"
    Else
        CorrectDir = str
    End If
End Function