enumerating and deleting reg function

Const HKEY_CURRENT_USER = &H80000001
'Delete the users office profile
Call DeleteRegistryKey(HKEY_CURRENT_USER, "Software\Microsoft\Office")

Sub DeleteRegistryKey(LNGHKEY, strSubkey)
'Deletes registry key and all subkeys (permissions to delete keys must exist)
'LNGHKEY: Long value of the root registry key that contains the strSubKey path (can be a constant)
'strSubkey: Subkey to be deleted (Case-sensitive string)
'Example: Call DeleteRegistryKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Test\t1")
Dim reg, aSubkeys, s
Set reg = GetObject("WinMgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
reg.EnumKey LNGHKEY, strSubkey, aSubkeys
If Not IsNull(aSubkeys) Then
For Each s In aSubkeys
Call DeleteRegistryKey(LNGHKEY, strSubKey & "\" & s)
Next
End If
' Error trapping in case we can't delete (no permissions)
On Error Resume Next
reg.DeleteKey LNGHKEY, strSubKey
On Error GoTo 0
End Sub