Vba 1c и реестр

Sub EnumSubKeys()
On Error GoTo ErrCase
Dim arrSubKeys
Dim numSubKeys As Integer, curSubKey As Integer
Dim keyPath As String
Dim objReg As Object
Const HKey = &H80000001 'HKCU
Set objReg = GetObject("winmgmts : {impersonationLevel=impersonate}!\\" & _
    ".\root\default:StdRegProv")
keyPath = "Software\Microsoft\Windows" 'здесь есть подКлючи
'keyPath = "Software\Microsoft\Notepad" 'здесь нет подКлючей
objReg.EnumKey HKey, keyPath, arrSubKeys
numSubKeys = UBound(arrSubKeys)
answer = MsgBox("Кол-во подключей: " & numSubKeys + 1 & "." & vbCr & _
        "Показать имена всех?", vbQuestion + vbYesNo, "HKCU\" & keyPath)
If answer = vbYes Then
    For curSubKey = 0 To numSubKeys
         MsgBox arrSubKeys(curSubKey), , "HKCU\" & keyPath
    Next curSubKey
End If
Exit Sub
ErrCase:
MsgBox "Подключей не обнаружено.", vbExclamation, "HKCU\" & keyPath
End Sub