'------------------------------------------------------------
  'Get the value of the key
  '------------------------------------------------------------
  Public Function GetRegValue(ByVal hKey As IntPtr, ByVal lpszSubKey As String, _
   ByVal szKey As String, ByVal szDefault As String, _
   Optional ByVal reg64 As Boolean = False, Optional ByVal reg32 As Boolean = False) As String
    'reg64=true -> force 64-bit key
    'reg64=false + reg32=true  -> force 32-bit key
    'reg64=false + reg32=false  -> default key
    On Error GoTo ErrorRoutineErr

    Dim phkResult As IntPtr
    Dim lResult As Integer
    Dim szBuffer As String
    Dim lBuffSize As Integer

    'Open the key
    If reg64 Then
      RegOpenKeyEx(hKey, lpszSubKey, 0, 1 Or KEY_WOW64_64KEY, phkResult) 'force 64-bit key
    ElseIf reg32 Then
      RegOpenKeyEx(hKey, lpszSubKey, 0, 1 Or KEY_WOW64_32KEY, phkResult) 'force 32-bit key
    Else
      RegOpenKeyEx(hKey, lpszSubKey, 0, 1, phkResult) 'default key
    End If

    'Query lBuffSize
    lResult = RegQueryValueEx(phkResult, szKey, 0, , , lBuffSize)
    'Debug.Print("lResult=" & lResult & ";lBuffSize=" & lBuffSize)
    If lResult = ERROR_SUCCESS Then
      'Create buffer
      szBuffer = Space(lBuffSize)
      'Query the value
      lResult = RegQueryValueEx(phkResult, szKey, 0, , szBuffer, lBuffSize)
      'Debug.Print "lResult=" & lResult & ";lBuffSize=" & lBuffSize

      'Close the key
      RegCloseKey(phkResult)

      'Return obtained value
      If lResult = ERROR_SUCCESS Then
        GetRegValue = Strings.Left(szBuffer, lBuffSize / 2 - 1) 'делим на 2, т.к. Юникод и размер буфера в байтах
      Else
        GetRegValue = szDefault
      End If
    Else
      'Close the key
      RegCloseKey(phkResult)
      GetRegValue = szDefault
    End If
    Exit Function

ErrorRoutineErr:
    GetRegValue = ""
  End Function