Tuve un error al hacer copy & paste. Te lo posteo de nuevo:
Código [Seleccionar]
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long