Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test()
    Call Login
    
    Dim Spr As CSDN.Parameters
    Set Spr = App.Parameters
    
     On Error GoTo E1
     'Создадим новую запись
     Spr.CreateNew
     Spr.Properties("NOTE").Value = "комм."
     Spr.Properties("NAME").Value = "Комментарий"
     Spr.Properties("PAR_TYPE").Value = "T"
     Spr.Properties("PAR_CODE").Value = "MY_TEST"
     Spr.Properties("PAR_GROUP").Value = ""
     Spr.Properties("PAR_CASH").Value = False
     Spr.Properties("PAR_UNIQUE").Value = False
     'Сохраним параметр
     Spr.SaveChanges
     
     I = Spr.ShowModal("Убедимся что сработало!")
     
     GoTo E2
E1:
    'в случае ошибки нужно отменить все изменения
    Spr.CancelChanges
E2:
    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