For example :
Dim sPathKey As String = "SOFTWARE\Microsoft\Office\ClickToRun\Configuration"
Using rkLocalMachine As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)
Using rk As RegistryKey = rkLocalMachine.OpenSubKey(sPathKey, False)
Dim sValue As String = CStr(rk.GetValue("ProductReleaseIDs", 0))
Console.WriteLine("Value : {0}", sValue)
End Using
End Using