Код:
Dim key As Microsoft.Win32.RegistryKey
key = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("software\Microsoft\Windows\CurrentVersion\run\")
Dim name As String = CType(key.GetValue("Имя ключа"), String)

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
http://granssg.narod.ru/Basic/Picture/READ_REESTR.jpg

Для Поисковиков:
Исходники на Бейсике;
Программа на Бейсике;
Реестр;
Работа с реестром;