Как выковырять из реестра ключи (разделы с определенным словом в названии в Hkey_Users) - VB

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

Да и в других ветках(HKCU,HKLM), как организовать поиск по слову? Ведь в hku ветки генерируются сообразно пользователям, как тогда искать нужного, если известна только ветка после него? Или ветка неизвестна, известно только ключевое слово?

Решение задачи: «Как выковырять из реестра ключи (разделы с определенным словом в названии в Hkey_Users)»

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

                            on error resume next
 
SID = inputBox("Введите SID: ", "GetUserBySID")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objAccount = objWMIService.Get("Win32_SID.SID='" & SID & "'")
if err <> 0 then
    msgbox "SID не найден!"
else
    user = objAccount.AccountName
    domain = objAccount.ReferencedDomainName
    ret = inputbox("SID: " & SID & vblf & _
      "Binary: " & Join(objAccount.BinaryRepresentation, ",") & vblf & _
      "Domain: " & Domain & vblf & _
      "UserName: " & user, "GetUserBySID - ответ", _
      domain & "\" & user)
end if
                        