' API Deklaration
Private Declare Function RegDeleteKey Lib "advapi32.dll" _
  Alias "RegDeleteKeyA" (ByVal hKey As Long, _
  ByVal lpSubKey As String) As Long

' ********** NEU **********
' Löscht einen Schlüssel inklusive aller Einträge und Unterschlüssel
' 
' Parameterbeschreibung
' ---------------------
' hKey (Hauptschlüssel) : z.B. HKEY_CURRENT_USER
' sPath (Schlüsselpfad) : z.B. MeineAnwendung
Sub fSchluesselLoeschen(hKey As Long, sPath As String)
  Dim vRet As Variant
  RegCreateKey hKey, sSubKey, vRet
  RegDeleteKey hKey, sSubKey
  RegCloseKey vRet
End Sub

fSchluesselLoeschen HKEY_LOCAL_MACHINE, "SYSTEM\test"