Используемые переменные:
    IDnomenklaturi  - идентификатор номенклатуры 
    KodPar - уникальный код параметра
    SpravNote - обозначение класса номенклатуры.    
    RetParValue - значение параметра
Чтение параметра через IAttachedParams:
  Dim Nmks As CSDN.Nomenclatures 
  Dim NMkPArs As CSDN.ParameterValues 
  Dim AtPar As CSDN.IAttachedParams 
  
   RetParValue  = "" 
   On Error GoTo err 
    If App.NmkClasses.Locate("NOTE", SpravNote, 0) Then 
        Set Nmks = App.Nomenclatures(App.NmkClasses.Properties("ID").AsInteger) 
        Set AtPar = Nmks 
        If Not AtPar.IsParamAttached(KodPar) Then AtPar.AttachParams(KodPar) 
        If Nmks.Locate("ID", IDnomenklaturi, 0) Then RetParValue  = AtPar.AttachedParamValue(KodPar) 
    End If 
err: 
Set NMkPArs = Nothing 
Set Nmks = Nothing 
Set AtPar = Nothing 
Запись значения параметра через IAttachedParams:
On Error GoTo err 
 If App.NmkClasses.Locate("NOTE", SpravNote, 0) Then                                
     Set Nmks = App.Nomenclatures(App.NmkClasses.Properties("ID").AsInteger)  
      
    Set AtPar = Nmks 
    'Проверяем присоединен ли параметр (хотя присоединять лучше все сразу до 10 штук!) 
     'Хотя для записи его присоединять необязательно 
    If Not AtPar.IsParamAttached(KodPar) Then Call AtPar.AttachParams(KodPar)        
   'позиционирование на номенклатуре с заданным ID 
    If Nmks.Locate("ID", IDnomenklaturi, 0) Then                                    
       If AtPar.CanEditValue Then 
           Call AtPar.SetParameterValue(KodPar, ParValue ) 'Устанавливаем значение. Если пустая строка, он сам ее удалит 
        Else: MsgBox "Нет прав!" 
       End If 
    End If 
 End If 
err: 
Set AtPar = Nothing 
Set Nmks = Nothing