Public Function RegGetValue_Net(ByVal Key As RegistryKey, ByVal SubKey As String, _
   ByVal valueName As String, Optional ByVal defaultValue As String = vbNullString) As String
    '!!! REG_SZ либо REG_EXPAND_SZ 
    Try
      Dim reg_key As RegistryKey = Key.OpenSubKey(SubKey)
      If reg_key Is Nothing Then Return defaultValue
      Dim reg_value As Object = reg_key.GetValue(valueName)
      If reg_value Is Nothing Then Return defaultValue
      If reg_key.GetValueKind(valueName) = RegistryValueKind.String Or _
       reg_key.GetValueKind(valueName) = RegistryValueKind.ExpandString Then Return CType(reg_value, String)
      Return defaultValue
    Catch
      Return defaultValue
    End Try
  End Function

  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

  Public Function RegSetValueExpandSZ_Net(ByVal Key As RegistryKey, ByVal SubKey As String, _
   ByVal valueName As String, ByVal value As String) As Boolean
    Try
      Dim reg_key As RegistryKey = Key.CreateSubKey(SubKey)
      reg_key.SetValue(valueName, value, RegistryValueKind.ExpandString)
      Return True
    Catch
      Return False
    End Try
  End Function

  Public Function SetRegValueExpandSZ(ByVal hKey As IntPtr, ByVal lpszSubKey As String, _
   ByVal sSetValue As String, _
   ByVal sValue As String, _
   Optional ByVal reg64 As Boolean = False, Optional ByVal reg32 As Boolean = False) As Boolean

    On Error GoTo ErrorRoutineErr

    Dim phkResult As IntPtr
    Dim lResult As Integer
    Dim SA As SECURITY_ATTRIBUTES
    Dim Create As Integer

    'Note: This function will create the key or
    'value if it doesn't exist.
    'Open or Create the key
    If reg64 Then
      RegCreateKeyEx(hKey, lpszSubKey, 0, vbNullString, _
       REG_OPTION_NON_VOLATILE, _
       KEY_ALL_ACCESS Or KEY_WOW64_64KEY, SA, phkResult, Create)
    ElseIf reg32 Then
      RegCreateKeyEx(hKey, lpszSubKey, 0, vbNullString, _
       REG_OPTION_NON_VOLATILE, _
       KEY_ALL_ACCESS Or KEY_WOW64_32KEY, SA, phkResult, Create)
    Else
      RegCreateKeyEx(hKey, lpszSubKey, 0, vbNullString, _
       REG_OPTION_NON_VOLATILE, _
       KEY_ALL_ACCESS, SA, phkResult, Create)
    End If

    lResult = RegSetValueEx(phkResult, sSetValue, 0, _
     REG_EXPAND_SZ, sValue, _
     (sValue.Length + 1) * 2)

    'Close the key
    RegCloseKey(phkResult)

    'Return SetRegValue Result
    SetRegValueExpandSZ = (lResult = ERROR_SUCCESS)
    Exit Function

ErrorRoutineErr:
    SetRegValueExpandSZ = False
  End Function