10            ctl.Value = GetSetting(APPNAME, "Defaults", ctl.Name, ctl.Value)

Option Explicit

Public Const APPNAME As String = "Test"
Public initial1 As Variant, initial2 As Variant, initial3 As Variant, initial4 As Variant

Sub test()

initial1 = 10
initial2 = "test"
initial3 = "12test"
initial4 = 23 / 12 / 2019

UserForm1.Show

End Sub

Option Explicit

' Процедура выхода из формы
Private Sub cbExit_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 APPNAME, "Defaults", 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
10            ctl.Value = GetSetting(APPNAME, "Defaults", ctl.Name, ctl.Value)
            Debug.Print ctl.Name, ctl.Text
        End If
    Next ctl
End Sub

'Процедура иннициализации формы
Private Sub UserForm_initialize()
    Dim i As Integer
    Dim ThisYear As Integer
    Dim x As Object
    Me.Caption = APPNAME
       
20    TextBox1.Value = initial1
30   TextBox2.Value = initial2
40    TextBox3.Value = initial3
50    TextBox4.Value = initial4

Call GetDefaults 'получаем значения из реестра по прошлой сессии

End Sub