Imports Microsoft.Win32
 
  Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
 
 ........
 
#End Region
 
 
    Dim Key As String = "Software\Test"
    Dim oKey As RegistryKey
    Dim Unterschlüssel As String = "Wert"
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Registry_schreiben()
    End Sub
    Private Sub Registry_schreiben()
 
        oKey = Registry.CurrentUser.CreateSubKey(Key)
        oKey.SetValue(Unterschlüssel, "123")
        oKey.Close()
 
    End Sub
 
End Class

Hänk

(Wer früh aufsteht hat mehr vom Tag)