Получить список имен ключей в ветке реестра

Public Function RegRead(ByVal RegPath As String) As String
On Error GoTo IfErr
  Set Reg = CreateObject("WScript.Shell")
  RegRead = Reg.RegRead(RegPath)
  Set Reg = Nothing
Exit Function
IfErr: RegRead = ""
End Function

Private Sub Command1_Click()
    Dim V, v1
    Call SaveSetting("X", "Y", "Z1", "=1")
    Call SaveSetting("X", "Y", "Z2", "=2")
    V = GetAllSettings("X", "Y")
    For Each v1 In V
        Print v1, GetSetting("X", "Y", v1)
    Next
End Sub

Private Sub Command1_Click()
    Dim V, v1, s$, j$(), f&
    s = "Пример записи параметров в раздел реестра"
    j = Split(s) 'Создаём список
    For f = 0 To UBound(j)
        Call SaveSetting("X", "Y", f, j(f)) 'Запись в реестр
    Next
    Cls
    V = GetAllSettings("X", "Y")
    For f = 0 To UBound(V)
        Print V(f, 0), V(f, 1)
    Next
    DeleteSetting "X", "Y" 'Полное удаление ветки "X", "Y"
End Sub

Option Explicit
 
Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
 
Private Const HKEY_CURRENT_USER = &H80000001
Private Const ERROR_NO_MORE_ITEMS = 259&
Private Const MAX_PATH = 260
 
Private Sub Form_Load()
    Dim hKey As Long, i As Long, q As Long, buf As String
    
    If RegOpenKey(HKEY_CURRENT_USER, "Software", hKey) Then Exit Sub
    
    buf = Space(MAX_PATH + 1)
    
    Do Until RegEnumKey(hKey, i, buf, MAX_PATH + 1)
        q = InStr(1, buf, vbNullChar)
        If q Then
            Debug.Print Left(buf, q)
        End If
        i = i + 1
        DoEvents
    Loop
    
    RegCloseKey hKey
End Sub