Работа с подшивками (VBA AutoCAD). Заполнение пользовательской формы при ее инициализации

'' ОТКРЫТЬ ПОДШИВКУ
Public Sub OpenSheetSet()
'' Create a Reference to the Sheet Set Manager Object
Dim oSheetSetMgr As AcSmSheetSetMgr
Set oSheetSetMgr = New AcSmSheetSetMgr
'' Open a Sheet Set file
Dim oSheetDb As AcSmDatabase
Set oSheetDb = oSheetSetMgr.OpenDatabase("d:\Подшивка.dst", False)
 
'' Lock the Database
LockDatabase oSheetDb
 
'' СОЗДАТЬ СВОЙСТВА ПОДШИВКИ
SetCustomProperty oSheetDb, "Свойство подшивки 1", TextBox1
SetCustomProperty oSheetDb, "Свойство подшивки 2", TextBox2
'' СОЗДАТЬ СВОЙСТВА ЛИСТА
SetCustomProperty oSheetDb, "Свойство листа1", TextBox3, False
SetCustomProperty oSheetDb, "Свойство листа2", TextBox4, False
 
'' Unlock the database
UnlockDatabase oSheetDb
 
End Sub
 
'' Used to Lock the database (SheetSet)
Private Function LockDatabase(oSheetDb As AcSmDatabase) As Boolean
'' Check the status of the database
If oSheetDb.GetLockStatus = AcSmLockStatus_UnLocked Then
oSheetDb.LockDb oSheetDb
LockDatabase = True
Else
LockDatabase = False
End If
End Function
'' Used to Unlock the database (SheetSet)
Private Function UnlockDatabase(oSheetDb As AcSmDatabase) As Boolean
'' Check the status of the database
If oSheetDb.GetLockStatus = AcSmLockStatus_Locked_Local Then
oSheetDb.UnlockDb oSheetDb
UnlockDatabase = True
Else
UnlockDatabase = False
End If
End Function
 
'' Set/Create a Sheet Set Property
Private Sub SetCustomProperty(oSheetDb As AcSmDatabase, _
strName As String, _
strValue As String, _
Optional bSheetSetFlag As Boolean = True)
'' Create a Reference to the Custom Property Bag
Dim cBag As AcSmCustomPropertyBag
Set cBag = oSheetDb.GetSheetSet().GetCustomPropertyBag
'' Create a Reference to a Custom Property Value
Dim cBagVal As New AcSmCustomPropertyValue
cBagVal.InitNew oSheetDb.GetSheetSet() '' cBag
'' Set the Flag for Sheet Set or Sheet Property
If bSheetSetFlag = True Then
cBagVal.SetFlags CUSTOM_SHEETSET_PROP
Else
cBagVal.SetFlags CUSTOM_SHEET_PROP
End If
'' Set the value for the Bag
cBagVal.SetValue strValue
'' Create the property
cBag.SetProperty strName, cBagVal
'' Cleat variable
Set cBagVal = Nothing
End Sub

Private Sub UserForm_Activate()
    TextBox1.Value = ??????????????????????????
    TextBox2.Value = ??????????????????????????
End Sub

Private Sub UserForm_Activate()
    TextBox3.Value = ??????????????????????????
    TextBox4.Value = ??????????????????????????
End Sub