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

Формулировка задачи:

Для хранения данных (название песен) хочу использовать реестр название ключа - название песни, значение ключа - время добавления песни Cтолкнулся с проблемой - не знаю как получить список ключей в ветке Читаю значения так

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

Есть ли аналог для получения списка имен ключей? Использовать файл не хочу Писать все в 1 ключ не вариант

Решение задачи: «Получить список имен ключей в ветке реестра»

textual
                            Листинг программы 
                        

                            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
                        