Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test()
    Call Login
    
    Dim Spr As CSDN.Parameters
    Set Spr = App.Parameters
     If Spr.Locate("PAR_CODE", "MY_TEST", 0) Then
     
        On Error GoTo E1
     
        'Редактируем
        Spr.Edit
        Spr.Properties("NAME").Value = "Текст комментария"
        'Сохраним
        Spr.SaveChanges
     
        I = Spr.ShowModal("Убедимся что сработало!")
     
        GoTo E2
E1:
        'в случае ошибки нужно отменить все изменения
        Spr.CancelChanges
        
    End If
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