Чтение и запись в реестр Windows в произвольную ветку можно произвести при помощи функций объекта WScript.Shell:

RegRead и RegWrite

Первая функция возвращает значение, считанное из реестра, вторая - записывает заданное значение в реестр.

При попытке считать несуществующий параметр возникает ошибка,
обойти которую нам поможет директива On Error Resume Next 

Пара функций для примера:

(получаем настройки программы из реестра Windows)

Function DefaultMailAccount() As String

' читает из реестра настройки почтового ящика,

' установленного в TheBAT! как "ящик по-умолчанию"

' возвращает адрес почты, или пустую строку, если TheBAT! не настроен

On Error Resume Next: Err.Clear

key$ = "HKEY_CURRENT_USER\Software\RIT\The Bat!\Users depot\Default"

DefaultMailAccount = CreateObject("WScript.Shell").RegRead(key$)

End Function

Function ПутьКФайлуПрограммыTheBAT() As String

' читает из реестра путь к исполняемому файлу программы TheBAT!

' возвращает путь к файлу, или пустую строку, если TheBAT! не установлен

On Error Resume Next: Err.Clear

key$ = "HKEY_CURRENT_USER\Software\RIT\The Bat!\EXE path"

ПутьКФайлуПрограммыTheBAT = CreateObject("WScript.Shell").RegRead(key$)

End Function

Sub TheBAT_MailBoxes()

' макрос выводит список всех почтовых ящиков, настроенных в программе TheBAT!

On Error Resume Next: Err.Clear

With CreateObject("WScript.Shell")

For i = 1 To 100

key$ = "HKEY_CURRENT_USER\Software\RIT\The Bat!\Users depot\User #" & i

Err.Clear: mailBox$ = .RegRead(key$)

If Err = 0 Then Debug.Print mailBox$

Next

End With

End Sub