Как изменить конкретный элемент в поле?

 item.Values(Index) = Value

    Public Sub ReplaceExistValue(Index As Integer, Value As String)
%REM Замена текущего значения по индексу Index,  другим указанным значением Value
%END REM
    ... (пропуск проверок)...
            If (Index => Lbound(item.Values)) And (index <= Ubound(item.Values))  Then
                Let  item.Values(Index) = Value
            End If          
    end sub

Public Class notesclassitem 'поле документа
    
    Private body As Variant 'любое поле
    
    Public Sub new(item As Variant)
        Set Me.body = item
    End Sub
    
    Public Property Get isexist As Variant
          'проверка наличия поля
        isexist = Not (Me.body Is Nothing)
    End Property
    
    Public Property Get text As String
          'текстовое значение поля
        If Me.isexist Then text = Me.body.text
    End Property
    
    Public Property Get values As Variant
     'все значения поля
        If Me.isexist Then 
            If Isarray(Me.body.values) Then
                If Me.text<>"" Then values = Me.body.values 'поле не пустое
            End If
        End If
    End Property
 
    Public Property Set values As Variant
        'все значения поля
        If Me.isexist Then 
            If IsArray(Me.body.values) Then
                Let Me.body.values = values
            End If
        End If
    End Property
        
    Public Function value(index As Integer) As String
     'функция возвращает указанное значение по индексу
     'значению с индексом 0 - соответствует 1-ое значение и т.д.     
        If Me.isexist Then               
            Dim v As Variant               
            v = Me.values               
            If Isarray(v) Then 'значения в поле обнаружены
                If (index>=Lbound(v)) And (index<=Ubound(v)) Then
                          'значение с указанным индексом существует
                    value = v(index) 'получение значения по индексу
                End If
            End If
        End If          
    End Function
    
    Public Property Get isin(value As String) As Boolean
          'возвращет true, если в поле есть указанное значение
        If Me.isexist Then
            If (value="") And (UBound(me.body.values)=0) Then stop
            Let isin=Me.body.contains( value )
        End If 
    End Property
    
    Public Sub setin( value, addition As Variant)
          'записывает в поле указанное значение в указанном режиме         
        If Me.isexist Then 
            value = Trim(value) 'убираем концевые пробелы
            Select Case addition=True
            Case True: 'добавляем значение к существующим
                Call Me.body.appendtotextlist( value) 'поля обязательно должно существовать
            Case False: 'заменяем существующее значение новым
                Dim parent As notesdocument
                Set parent = Me.body.parent 'получаем родитель для доступа к методу replace
                Call parent.replaceitemvalue( Me.body.name, value )
                Me.body.issummary = True
            End Select
        End If
    End Sub
    
    Public Property Get ismanyvalues As Variant
          'свойство возвращает true если в поле указано более одного значения
        If Me.isexist Then
            Dim v As Variant
            v = Me.values
            If Isarray(v) Then ismanyvalues = Not ( Ubound(v) = 0) 'если значение одно
        End If
    End Property
    
    Public Property Get isexistvalues As Boolean
          'возвращает true если в поле есть хотя бы одно значение
        
        If Me.isexist Then
            If Not Me.ismanyvalues Then 'в поле только одно значение
                    'далее определяется является ли единственое значение пустым
                Dim v As Variant
                Let v = Me.values
                Let isexistvalues = v(Lbound(v))<>""
            Else
                Let isexistvalues = True
            End If
        End If
    End Property
    
    Public Sub ReplaceExistValue(Index As Integer, Value As String)
%REM Замена текущего значения по индексу,    другим указанным значением
%END REM
        If Me.isexistvalues Then
            If (Index => Lbound(Me.Body.Values)) And (index <= Ubound(Me.body.Values))  Then
                Let Me.Body.Values(Index) = Value
            End If          
        End If
    End Sub
        
    Public Function Appendtext(Text As String)
%REM Добавление в поле RICHTEXT указанного комментария      
%END REM
        If Me.IsExist Then
            If ( Me.Body.Type = RICHTEXT ) Then
                Call Me.Body.AddNewLine(1)
                Call Me.Body.AppendText(Text)
            Else
                Call me.body.Appendtotextlist(Text)
                Let me.values = ArrayUnique(me.values)
            End if
        End If
    End Function
    
End Class