Option Explicit

Private Sub UserForm1_Initialize()
Call GetDefaults
End Sub

Private Sub CommandButton1_Click()
Call SaveDefaults
Unload Me
End Sub

'записываем в реестр все последние данные из формы
Sub SaveDefaults()
    Dim ctl As Control
    Dim CtrlType As String
    
    For Each ctl In Me.Controls
        CtrlType = TypeName(ctl)
        If CtrlType = "TextBox" Then
            SaveSetting "test", "Defaults", ctl.Name, ctl.Value
            'Debug.Print ctl.Name, CStr(ctl.Value)
        End If
    Next ctl
End Sub

'получаем из реестра все последние данные из формы
Sub GetDefaults()
    Dim ctl As Control
    Dim CtrlType As String
    
    For Each ctl In Me.Controls
        CtrlType = TypeName(ctl)
        If CtrlType = "TextBox" Then
            GetSetting "test", "Defaults", ctl.Name ', ctl.Value
            Debug.Print ctl.Name, ctl.Value
        End If
    Next ctl
End Sub