Для того, чтобы получить значение нужной записи из раздела в реестре Windows, можно воспользоваться функцией GetSetting.
iSetting = GetSetting(AppName:="UserForm1", Section:="TextBox1", Key:="Value") 'Or
'iSetting = GetSetting("UserForm1", "TextBox1", "Value")
Если искомое значение определено не будет, например, в случае отсутствия указанного приложения, раздела, записи, то данная функция возвращает значение необязательного именованного аргумента Default. Поскольку, в данном примере, этот аргумент не используется, функция возвращает пустую строку, однако, это довольно легко изменить.
iSetting = GetSetting(AppName:="UserForm1", Section:="TextBox2", Key:="Value", Default:="Текст, по умолчанию") 'Or
'iSetting = GetSetting("UserForm1", "TextBox2", "Value", "Текст, по умолчанию")
Данная функция позволяет работать только с одним разделом реестра, а именно:
HKEY_USERS\...\VB and VBA Program Settings\... 'Win98/WinMe
HKEY_CURRENT_USER\...\VB and VBA Program Settings\... 'Win2000/WinXP