Vb работа с реестром

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

Всем привет. Подскажите пожалуйста как мне при помощи базика прочитать параметры из реестра. Путь в реестре "HKEY_CURRENT_USER\Software\SC552" надо прочитать 2 строковых параметра и записать их значения в переменные, названия параметров Put1 и Put2. В интернете толквых примеров не нашел.

Решение задачи: «Vb работа с реестром»

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

                            dim Put1 as string, Put2 as string, WshShell as object
 
Set WshShell = CreateObject("WScript.Shell")
Put1 = WshShell.RegRead("HKCU\Software\SC552\Put1")
Put2 = WshShell.RegRead("HKCU\Software\SC552\Put2")
Set WshShell = nothing
                        