' Prozedur zum Löschen von Werten aus der Registry
Public Sub gRegistry_Delete(iREG_KEY As eREG_KEY, _
  ByVal sKey As String, _
  ByVal sEntry As String)
 
  Dim oWshShell As New WshShell
  Dim sREG_KEY As String
 
  sREG_KEY = pKeyToString(iREG_KEY)
 
  ' Fehlerbehandlung aktivieren (falls Schlüssel
  ' / Eintrag nicht existsiert)
  On Local Error Resume Next
 
  ' Der Methode "RegDelete" wird nun der gewünschte
  ' Schlüssel übergeben ... schon fertig :-)
  oWshShell.RegDelete sREG_KEY & sKey & "\" & sEntry
 
  ' Fehlerbehandlung wieder ausschalten
  On Local Error GoTo 0
End Sub
 
 
 
 
' Wert löschen
gRegistry_Delete iHKEY_CURRENT_USER, _
  "Software\Microsoft\Windows\CurrentUser\Run", "INiS Smile"