Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test()
    Call Login
    
    Dim Spr As CSDN.Parameters
    Set Spr = App.Parameters
    
    Dim Pr As CSDN.Prop
    
    rw = 1
    For I = 1 To Spr.PropertiesCount
        'так сделаем только для примера
        Set Pr = Spr.Properties(I - 1)
        Cells(rw, I).Value = Pr.Caption
        'проще делать так
        'Cells(rw, I).Value = Spr.Properties(I - 1).Caption
    Next
    
    rw = rw + 2
    Spr.First
    Do While Not Spr.EOF
        For I = 1 To Spr.PropertiesCount
            'так сделаем только для примера
            Set Pr = Spr.Properties(I - 1)
            Cells(rw, I).Value = Pr.DisplayText
            'проще делать так
            'Cells(rw, I).Value = Spr.Properties(I - 1).DisplayText
        Next
        Spr.Next
        rw = rw + 1
    Loop
    
    Set Spr = Nothing
    
End Sub
Sub Login()
    
    If TCS Is Nothing Then Set TCS = CreateObject("CSDN.TCS")
    
    If App Is Nothing Then Set App = TCS.Login 
    
End Sub