Dim subkeyname As String = "TestKey"
Dim sectionname As String = "Test"
Dim sectionvalue As String = "TestValue"
 
Dim rk As Microsoft.Win32.RegistryKey = _
    My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
 
If rk Is Nothing OrElse (rk.Handle.IsInvalid Or rk.Handle.IsClosed) Then
   'Logeintrag: Ungültiges Handle
Else
   rk.CreateSubKey(subkeyname, _
      Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree, _
      Microsoft.Win32.RegistryOptions.None).SetValue(sectionname, sectionvalue)
   rk.Close()
End If
 
Dim rk2 As Microsoft.Win32.RegistryKey = _
    My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE", False)
 
Dim vl As Object = _
rk2.OpenSubKey(subkeyname).GetValue(sectionname, "Default")
 
rk2.Close()
 
If vl.ToString <> sectionvalue Then
   'Logeintrag: Wert kann nicht gelesen werden
End If