Dim TcsObj As CSDN.TCS
Dim App As CSDN.Tcs_Application
Set TcsObj = CreateObject("CSDN.TCS")
Set App = TcsObj.Login
Dim Spr As CSDN.VersionHeaderItems
Set Spr = App.VersionHeaderItems
rw = 1
For i = 1 To Spr.PropertiesCount
   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
        Cells(rw, i).Value = Spr.Properties(i - 1).DisplayText
    Next
    Spr.Next
    rw = rw + 1
Loop
Set Spr = Nothing
Set App = Nothing
Set TcsObj = Nothing