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 Then
            'Logeintrag: Ungültiges Handle
            CLog.GetSingleton.Log("REGISTRY KEY", "Ungültiger Handle", "", _
              enuLogTyp.Debug, enuLogLevel.ApplError)
        Else
            rk.CreateSubKey(subkeyname, _
              Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree).SetV_
              alue(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
            CLog.GetSingleton.Log("REGISTRY KEY", "Wert kann nicht gelesen" & _
              "werden", "", enuLogTyp.Debug, enuLogLevel.ApplError)
        End If