como que no te funciona ....
si haces un copy&paste del codigo solamente cambias los valores de las claves te tiene que funcionar.
Aqui hay otro metodo con apis
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
If OSRegOpenKey(HKEY_LOCAL_MACHINE, “SOFTWARE”, hKey) =
ERROR_SUCCESS Then
If OSRegDeleteKey(hKey, "MiClave") = ERROR_SUCCESS then
MsgBox “Clave borrada”
End If
End If