Registry'ye Kayıt Elemek ve Değiştirmek

Referanslardan "Registry Access Function" ( REGTool5.DLL )etkinleştirmeniz gerek

Dim Reg As New Registry, Data As String
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_CONFIG = &H80000005
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_DYN_DATA = &H80000006
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_PERFORMANCE_DATA = &H80000004
Private Const HKEY_USERS = &H80000003

Private Sub CommandButton1_Click()
'Bu kısımda en son girilen internet adresleri listeleniyor
For i = 0 To 20
If Reg.GetKeyValue(HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Internet Explorer\TypedURLs\", CStr("url" & i), Data) Then
ListBox1.AddItem Data
End If
Next i
End Sub

alıntıdır....(excelvba.net)