Private Declare Function DlgDirList Lib "user32.dll" Alias "DlgDirListA" ( _
                                    ByVal hDlg As Long, _
                                    ByVal lpPathSpec As String, _
                                    ByVal nIDListBox As Long, _
                                    ByVal nIDStaticPath As Long, _
                                    ByVal wFileType As Long) As Long
Private Declare Function GetDlgCtrlID Lib "user32.dll" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
    Dim ID As Long
    ID = GetDlgCtrlID(ByVal List1.hwnd)
    DlgDirList Me.hwnd, ByVal "C:\Windows\System32", ByVal ID, ByVal  0 , ByVal  0 
End Sub

GetSetting

GetAllSettings

SaveSetting

DeleteSetting

HKEY_CURRENT_USER/SOFTWARE/VB and VBA Program Settings/

GetSetting и SaveSetting – с ними Вы будете встречаться чаще всего.
GetSetting(appname, section, key[, default])
SaveSetting appname, section, key, setting

Private Sub Form_Load()
    Me.Left = GetSetting(App.EXEName, "Position", "Left",  0 )
    Me.Top = GetSetting(App.EXEName, "Position", "Top",  0 )
    Me.Caption = GetSetting(App.EXEName, "Other", "Caption", "Проба")
End Sub
Private Sub Form_Unload(Cancel As Integer)
    SaveSetting App.EXEName, "Position", "Left", Me.Left
    SaveSetting App.EXEName, "Position", "Top", Me.Top
    SaveSetting App.EXEName, "Other", "Caption", Me.Caption
End Sub

DeleteSetting appname, section[, key]

Private Sub Form_Unload(Cancel As Integer)
    SaveSetting App.EXEName, "Position", "Left", Me.Left
    SaveSetting App.EXEName, "Position", "Top", Me.Top
    SaveSetting App.EXEName, "Other", "Caption", Me.Caption
    On Error Resume Next
    DeleteSetting App.EXEName, "Position", "Left"
End Sub

On Error Resume Next
DeleteSetting App.EXEName, "Position"

GetAllSettings(appname, section)

Private Sub Command1_Click()
    Dim arrSettings As Variant, intLoop As Integer
    Me.Caption = vbNullString
    arrSettings = GetAllSettings(App.EXEName, "Position")
    For intLoop = LBound(arrSettings,  1 ) To UBound(arrSettings,  1 )
        Me.Caption = Me.Caption & " " & arrSettings(intLoop,  0 ) & "=" & arrSettings(intLoop,  1 )
    Next
End Sub

- Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal strSection As String, ByVal strKeyName As String, ByVal lngDefault As Long, ByVal strFileName As String) As Long
- Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal strSection As String, ByVal strKeyName As String, ByVal strDefault As String, ByVal strReturned As String, ByVal lngSize As Long, ByVal strFileName As String) As Long
- Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal strSection As String, ByVal strKeyNam As String, ByVal strValue As String, ByVal strFileName As String) As Long

- Private Declare Function GetProfileInt Lib "kernel32" Alias "GetProfileIntA" (ByVal strSection As String, ByVal strKeyName As String, ByVal lngDefault As Long) As Integer
- Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal strSection As String, ByVal strKeyName As String, ByVal strDefault As String, ByVal strReturned As String, ByVal intSize As Long) As Long
- Private Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal strSection As String, ByVal strKeyName As String, ByVal strValue As String) As Integer

Public Function GetValueInteger(strSection As String, strKey As String, strFile As String) As Integer
    Dim intValue As Integer
 
    On Error GoTo PROC_ERR
    intValue = GetPrivateProfileInt(strSection, strKey,  0 , strFile)
    GetValueInteger = intValue
    PROC_EXIT:
    Exit Function
    PROC_ERR:
    MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "GetValueInteger"
    Resume PROC_EXIT
End Function

Public Function GetValueString(strSection As String, strKey As String, strFile As String) As String
    Dim strBuffer As String *  256 
    Dim intSize As Integer
 
    On Error GoTo PROC_ERR
    intSize = GetPrivateProfileString(strSection, strKey, "", strBuffer,  256 , strFile)
    GetValueString = Left$(strBuffer, intSize)
    PROC_EXIT:
    Exit Function
    PROC_ERR:
    MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "GetValueString"
    Resume PROC_EXIT
End Function

Public Function SetValue(strSection As String, strKey As String, strValue As String, strFile As String) As Integer
    Dim intStatus As Integer
 
    On Error GoTo PROC_ERR
    intStatus = WritePrivateProfileString(strSection, strKey, strValue, strFile)
    SetValue = (intStatus <>  0 )
    PROC_EXIT:
    Exit Function
    PROC_ERR:
    MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "SetValue"
    Resume PROC_EXIT
End Function

- Private Declare Function GetPrivateProfileSection Lib "KERNEL32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Function GetSection(strSection As String, strFile As String)
    Dim strBuffer As String *  512 
    Dim intSize As Integer
    Dim strTemp As String
    Dim intTemp As Integer
    Dim Index As Integer
    Dim arrSection() As String
    Dim key As String, value As String, str As String
 
    On Error GoTo PROC_ERR
    intSize = GetPrivateProfileSection(strSection, strBuffer,  512 , strFile)
    strTemp = Left$(strBuffer, intSize)
    Do Until Len(strTemp) =  0 
        intTemp = InStr( 1 , strTemp, Chr( 0 ))
        ReDim Preserve arrSection( 1 , Index) As String
        str = Mid(strTemp,  1 , intTemp)
        key = Mid(str,  1 , InStr( 1 , str, "=") -  1 )
        value = Mid(str, InStr( 1 , str, "=") +  1 )
        arrSection( 0 , Index) = key
        arrSection( 1 , Index) = value
        Index = Index +  1 
        strTemp = Mid(strTemp, intTemp +  1 , Len(strTemp))
    Loop
    GetSection = arrSection
    PROC_EXIT:
    Exit Function
    PROC_ERR:
    MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "GetValueString"
    Resume PROC_EXIT
End Function

Private Sub Command1_Click()
    Dim i As Integer, arrList As Variant
 
    List1.Clear
    arrList = GetSection("Сапер", "C:\Windows\winmine.ini")
     For i =  0  To UBound(arrList,  2 )
        List1.AddItem arrList( 1 , i)
    Next
End Sub

HKEY_CLASSES_ROOT
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS
HKEY_CURRENT_CONFIG
HKEY_DYN_DATA

HKEY_CURRENT_USER – содержит данные, которые описывают профиль пользователя, т.е. внешний вид и поведение рабочего стола, данные различных программ, сетевые соединения. Именно здесь и сохраняются все основные настройки приложений, используемых в Windows, в том числе и VB.
HKEY_LOCAL_MACHINE – здесь хранятся настройки компьютера, общие для всех зарегистрированных пользователей.
HKEY_USERS – этот раздел хранит информацию о профилях каждого из зарегистрированных пользователей.
HKEY_CURRENT_CONFIG – включает в себя информацию о шрифтах, зарегистрированных на данном компьютере, а так же данные о принтерах.
HKEY_DYN_DATA – самый часто обновляемый раздел реестра, т.к. включает в себя часто изменяющиеся динамические данные.

API-функция	 Описание
RegCloseKey	 Освобождает манипулятор раздела
RegCreateKeyEx	 Создает раздел, а если раздел существует, то просто открывает его. Это очень удобно, когда неизвестно: существует данный раздел реестра или нет
RegDeleteKey	 Удаляет раздел со всеми входящими в него подразделами
RegDeleteValue	 Удаляет заданный параметр из конкретного раздела
RegEnumKeyEx	 Возвращает имеющийся подраздел из конкретного раздела. Удобно использовать в цикле для получения всех подразделов конкретного раздела
RegEnumValue	 Аналогична предыдущей функции, с той лишь разницей, что возвращает параметр из конкретного раздела
RegOpenKeyEx	 Открывает заданный раздел
RegQueryValueEx	 Получает информацию о типе и данные для параметра с заданным именем.
RegSetValueEx	 Сохраняет данные в параметре реестра.

Command1. В Form_Load инициализируем наши переменные, отвечающие за путь в реестре.
Private Create As Long
Private SubKey As String
Private hKey As Long

Private Sub Form_Load()
    SubKey = "SOFTWARE\VB AND VBA PROGRAM SETTINGS"
    hKey = HKEY_CURRENT_USER
End Sub

Private Sub Command1_Click()
    On Error GoTo ErrorRoutineErr:

    Dim Reply As String

    Reply = InputBox("Введите имя для создания подраздела:" & vbCrLf & "в разделе " & SubKey)
    If Reply = "" Then
        Exit Sub
    End If

    If Mid(Reply,  1 ,  1 ) <> "\" Then
        Reply = "\" & Reply
    End If

    If Reply = "" Then
        MsgBox "Не могу создать подраздел."
        Exit Sub
    End If

    If CreateRegKey(Reply) Then
        MsgBox "Создан новый подраздел"
    Else
        MsgBox "Не могу создать подраздел."
    End If
    Exit Sub

    ErrorRoutineErr:
    MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "Созданиие подраздела"
End Sub

Function CreateRegKey(NewSubKey As String) As Boolean

    On Error GoTo ErrorRoutineErr: 

    Dim phkResult As Long 
    Dim SA As SECURITY_ATTRIBUTES 

    CreateRegKey = (RegCreateKeyEx(hKey, SubKey & NewSubKey,  0 , "", REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, SA, phkResult, Create) = ERROR_SUCCESS)

    RegCloseKey phkResult
    Exit Function

    ErrorRoutineErr:
    MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "Созданиие подраздела"
    CreateRegKey = False

End Function

Private Sub Command2_Click()
    Dim Reply1 As String, Reply2 As String

    SubKey = SubKey & "\TestRegistry"

    Reply1 = InputBox("Введите имя параметра:" & vbCrLf & "в разделе: " & SubKey)
    If Reply1 = "" Then
        Exit Sub
    End If

    Reply2 = InputBox("Введите значение параметра:" & vbCrLf & "в разделе: " & SubKey & vbCrLf & "для параметра: " & Reply1)
    If Reply2 = "" Then
        Exit Sub
    End If

    If Not SetRegValue(hKey, SubKey, Reply1, Reply2) Then
        MsgBox "Не могу создать параметр."
    End If
End Sub

Function SetRegValue(hKey As Long, sSubKey As String, ByVal sSetValue As String, ByVal sValue As String) As Boolean 

    On Error GoTo ErrorRoutineErr:

    Dim phkResult As Long
    Dim lResult As Long
    Dim SA As SECURITY_ATTRIBUTES

    RegCreateKeyEx hKey, sSubKey,  0 , "", REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, SA, phkResult, Create
    lResult = RegSetValueEx(phkResult, sSetValue,  0 , REG_SZ, sValue, CLng(Len(sValue) +  1 ))
    RegCloseKey phkResult

    SetRegValue = (lResult = ERROR_SUCCESS)
    Exit Function

    ErrorRoutineErr::
    MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "Созданиие параметра"
    SetRegValue = False

End Function

Private Sub Command3_Click()
    Dim phkResult As Long
    Dim SA As SECURITY_ATTRIBUTES

    SubKey = "SOFTWARE\VB AND VBA PROGRAM SETTINGS\TestRegistry"

    RegCreateKeyEx hKey, SubKey,  0 , "", REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, SA, phkResult, Create

    If RegDeleteValue(phkResult, "Test1") = ERROR_SUCCESS Then
        MsgBox "Параметр удален"
    Else
        MsgBox "Не могу удалить параметр"
    End If

    RegCloseKey phkResult
End Sub

Private Sub Command4_Click()
    Dim phkResult As Long
    Dim SA As SECURITY_ATTRIBUTES

    SubKey = "SOFTWARE\VB AND VBA PROGRAM SETTINGS"

    RegCreateKeyEx hKey, SubKey,  0 , "", REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, SA, phkResult, Create

    If RegDeleteKey(phkResult, "TestRegistry") = ERROR_SUCCESS Then
        MsgBox "Подраздел удален"
    Else
        RegCloseKey phkResult
        MsgBox "Не могу удалить подраздел"
    End If
End Sub

Private Sub Command5_Click()
    SubKey = "SOFTWARE\VB AND VBA PROGRAM SETTINGS\TestRegistry"
    MsgBox GetValue(hKey, SubKey, "Test1", "Ничего нет")
End Sub

Function GetValue(hKey As Long, sSubKey As String, sKey As String, sDefault As String) As Variant

    On Error GoTo ErrorRoutineErr

    Dim phkResult As Long
    Dim lResult As Long
    Dim sBuffer As String
    Dim lBuffSize As Long

'Создаем буфер
    sBuffer = Space( 255 )
    lBuffSize = Len(sBuffer)

    RegOpenKeyEx hKey, sSubKey,  0 ,  1 , phkResult
    lResult = RegQueryValueEx(phkResult, sKey,  0 ,  0 , sBuffer, lBuffSize)
    RegCloseKey phkResult

    If lResult = ERROR_SUCCESS Then
        GetValue = Left(sBuffer, lBuffSize -  1 )
    Else
        GetValue = sDefault
    End If
    Exit Function

    ErrorRoutineErr::
    MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "Получение параметра"
    GetValue = ""
End Function

Option Explicit
Dim Reg As Registry
При загрузке формы – инициализируем ее
Private Sub Form_Load()
    Set Reg = New Registry
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set Reg = Nothing
End Sub
Теперь займемся функциями. Как я говорил выше их всего  4 : UpdateKey, DeleteKey, GetKeyValue, GetNextValue. А так же имеется  5  констант:
Const HKEY_CLASSES_ROOT = - 2147483648  (&H80000000)
Const HKEY_CURRENT_USER = - 2147483647  (&H80000001)
Const HKEY_LOCAL_MACHINE = - 2147483646  (&H80000002)
Const HKEY_PERFORMANCE_DATA = - 2147483644  (&H80000004)
Const HKEY_USERS = - 2147483645  (&H80000003)

Private Sub Command1_Click() 
    Reg.UpdateKey HKEY_CURRENT_USER, "SOFTWARE\VB and VBA Program Settings\TestRegistryDLL", "FirstValue", "Test" 
    Reg.UpdateKey HKEY_CURRENT_USER, "SOFTWARE\VB and VBA Program Settings\TestRegistryDLL", "SecondValue", "Test2" 
    MsgBox "Создана папка TestRegistryDLL и 2 параметра в ней" 
End Sub

Private Sub Command2_Click() 
    Reg.UpdateKey HKEY_CURRENT_USER, "SOFTWARE\VB and VBA Program Settings\TestRegistryDLL", "SecondValue", "New Test"
    MsgBox "Изменено значение 2-го параметра в папке TestRegistryDLL"
End Sub

Private Sub Command3_Click()
    If Reg.DeleteKey(HKEY_CURRENT_USER,  "SOFTWARE\VB and VBA Program Settings\TestRegistryDLL") Then
        MsgBox "Удалена папка TestRegistryDLL"
    Else
        MsgBox "Ничего не получилось :("
    End If
End Sub

Private Sub Command4_Click() 
    Dim KeyFound As Boolean, strValue As String 
    strValue = "" 
    KeyFound = Reg.GetKeyValue(HKEY_CURRENT_USER, "SOFTWARE\VB and VBA Program Settings\TestRegistryDLL", "SecondValue", strValue) 
    If KeyFound Then 
        MsgBox strValue 
    Else 
        MsgBox "Такого параметра нет" 
    End If 
End Sub

Private Sub Command5_Click() 
    Dim KeyFound As Boolean, strName As String, strValue As String 
    strValue = "" 
    Do 
        KeyFound = Reg.GetNextValue(HKEY_CURRENT_USER, "SOFTWARE\VB and VBA Program Settings\TestRegistryDLL", strName, strValue) 
        If KeyFound = False Then Exit Do 
        MsgBox strName & " = " & strValue 
    Loop While KeyFound 
    MsgBox "Больше параметров нет!" 
End Sub