Text1.Text= "HKCU\SOFTWARE\VB and VBA Program Settings\SFRB\RBStamm\ColWidths"
 
 
' Schreiben
Private Sub Command2_Click()
  Dim sValue As String
 
  If MsgBox("Schlüssel überschreiben? " & _
    "Der alte Wert geht dadurch verloren.", vbYesNo) = vbYes Then
 
    sValue = InputBox("Geben Sie den neuen Wert ein:")
    If RegWrite(Text1.Text, sValue) Then
      MsgBox "Neuer Wert wurde gespeichert."
    Else
      MsgBox "Fehler beim Speichern des Wertes."
    End If
  End If
End Sub
 
 
' Schreibt den Wert aus "Value" als den Typ aus "Typ"
' in den in "Path" angegebenen Schlüssel
Public Function RegWrite(ByVal Path As String, _
  ByVal Value As String, _
  Optional ByVal Typ As String = "REG_SZ") As Boolean
 
  Dim ws As Object
 
  On Error GoTo ErrHandler
  Set ws = CreateObject("WScript.Shell")
  ws.RegWrite Path, Value, Typ
  RegWrite = True
  Exit Function
 
ErrHandler:
  RegWrite = False
End Function

Frank