Код программного модуля:

Type MovementTableConditions
    Code As String
    DocumentField As String
    DocumentFieldValue As Integer
End Type

Type DoubleRecords
    SumUnitData As MovementTableConditions
    PointA As String
    PointB As String
End Type

Sub FillMovementRules()
    
    Dim CopyFieldsCollection As New Collection
    
    Dim Rule As New Rules
    
    Rule.SumUnitData.Code = "TEST"
    Rule.SumUnitData.DocumentField = "dimTESTING1"
    Rule.SumUnitData.DocumentFieldValue =  1 
    
    CopyFieldsCollection.Add Item:=Rule, Key:="Doc1Rules"
    
End Sub

Код модуля класса Rules:

    Public Code As DoubleRecords

Код модуля класса Rules:

    Public Code As String
    Public DocumentField As String
    Public DocumentFieldValue As Integer

Код программного модуля:

    Rule.Code = "TEST"
    Rule.DocumentField = "dimTESTING1"
    Rule.DocumentFieldValue =  1