Create ,read registry key

Imports System.IO
Imports System.Management
Imports Microsoft.Win32

'==Creating registry sub key and assigned value into them.=====
Dim Activekey As Microsoft.Win32.RegistryKey

Activekey = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\Mayabious\key")
Activekey.SetValue("Activated", 0)

'retrive value from specefic regystry key=============
ActivationKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Mayabious\key")
strActivationKey = ActivationKey.GetValue("ActivationCode").ToString()
strActivationKey = mac.Decrypt1(strActivationKey, "", True)