Как обращаться к функциям библиотек ядра?

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 HKEY_LOCAL_MACHINE = &H80000002
Private Const MAX_PATH = 260
 
Private Sub Form_Load()
'https://www.cyberforum.ru/visual-basic/thread1095080.html#post5774529
    Dim hKey As Long, i As Long, q As Long, buf As String
    
    If RegOpenKey(HKEY_LOCAL_MACHINE, "Hardware\DeviceMap\", 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
'  Exit Sub
'https://www.cyberforum.ru/vbscript-wsh/thread1811016.html#post9566517
Dim WshShell
Dim sReg As String
Set WshShell = CreateObject("WScript.Shell")
sReg = WshShell.RegRead("HKEY_LOCAL_MACHINE\Hardware\DeviceMap\")
MsgBox sReg
End Sub

    ' Перечисление имен параметров указанного раздела + их значения
    For Each Key In Split(Reg.GetEnumValues(0, "HKEY_LOCAL_MACHINE\Hardware\DeviceMap\SerialComm"), "|")
        Debug.Print CStr(Key); " = "; Reg.GetRegData(0, "HKEY_CURRENT_USER\Environment", CStr(Key))
    Next