Imports Microsoft.Win32
 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
 
        Dim RKx As RegistryKey = RegistryKey.OpenBaseKey( _
          RegistryHive.CurrentUser,
  RegistryView.Default).OpenSubKey( _
  "SOFTWARE\Microsoft\Office\12.0\Excel\Options", True)
 
        Label1.Text = RKx.ValueCount
        Label2.Text = RKx.ToString
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
 
        Dim RKx As RegistryKey = Registry.CurrentUser.OpenSubKey( _
          "SOFTWARE\Microsoft\Office\12.0\Excel\Options", True)
 
        Label3.Text = RKx.ValueCount
        Label4.Text = RKx.ToString
 
    End Sub
 
End Class

Dim RKx As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.CurrentUser, _
  RegistryView.Default).OpenSubKey( _
  "SOFTWARE\Microsoft\Office\16.0\Excel\Options", True)
 
MsgBox(RKx.ToString) '-> es wird richtiger Weise HKEY_CurrentUsers\SOFTWARE ( 
' ...) gepromptet
 
If RKx IsNot Nothing Then
   MsgBox(RKx.ValueCount) '-> es wird leider die Anzahl der Values aus dem 
   ' HKEY_Users-Abschnitt gepromptet und nicht die Anzahl der Vaules aus dem 
   ' HKEY_CurrentUsers-Abschnitt
   For Each ItemX In RKx.GetValueNames()
      MsgBox(ItemX.ToString)
      MsgBox(RKx.GetValue(ItemX).ToString)
      If InStr(RKx.GetValue(ItemX).ToString, "MeinWertDenIchLöschenWill") Then _
        RKx.DeleteValue(ItemX) '-> wird nicht gefunden, weil er im 
      ' HKEY_CurrentUser steht, aber nicht im HKey_Users ... 
   Next
End If

    Private Sub SetRegistryHKCUValue(strSubkey As String, strName As String, _
      strValue As String)
 
        Dim regKey As RegistryKey
 
        regKey = Registry.CurrentUser.OpenSubKey(strSubkey, True)
 
        If IsNothing(regKey) Then
            regKey = Registry.CurrentUser.CreateSubKey(strSubkey)
        End If
 
        regKey.SetValue(strName, strValue)
 
    End Sub

    Private Function GetRegistryHKCUValue(strSubkey As String, strValue As _
      String) As String
 
        Dim regKey As RegistryKey
 
        If Not IsNothing(Registry.CurrentUser.OpenSubKey(strSubkey)) Then
 
            regKey = Registry.CurrentUser.OpenSubKey(strSubkey)
            Return CStr(regKey.GetValue(strValue))
 
        Else
 
            Return ""
 
        End If
 
    End Function