Dim regKey As RegistryKey = Registry.CurrentUser.OpenSubKey( _
          "Software\VBTest", True)
 
        If regKey IsNot Nothing Then
            ' Auslesen
            For Each key As String In regKey.GetValueNames
                Select Case regKey.GetValueKind(key)
                    Case Is = RegistryValueKind.String
                        Debug.WriteLine(key & ": " & regKey.GetValue( _
                          key).ToString)
                    Case Is = RegistryValueKind.MultiString
                        For Each line As String In regKey.GetValue(key)
                            Debug.WriteLine(key & ": " & line)
                        Next
                End Select
            Next
 
            'Schreiben
            regKey.SetValue("TestKey1", New String() {"TestValue1a", _
              "TestValue1b", "TestValue1c"}, RegistryValueKind.MultiString)
        Else
            Debug.WriteLine("RegistryKey nicht vorhanden.")
        End If