Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_CURRENT_USER = &H80000001

Public oReg As Object

Private Sub Form_Load()
    Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
    test2
End Sub

Sub test2()
    Dim sKeys()
    Dim sKey        As String
    Dim lret        As Long

    sKey = "" ' имя подраздела

    lret = oReg.EnumKey(HKEY_CURRENT_USER, sKey, sKeys)
   
    Stop
End Sub

По достижении оператора Stop мы получаем в переменной sKeys
массив строк - имена подразделов главного раздела HKCU.