Замена системного поля в документе

Sub Click(Source As Button)
    On Error Goto ErrH
    Dim session As New NotesSession
    Dim ws As New NotesUIWorkspace
    Dim db As NotesDatabase
    Dim uiview As NotesUIView
    Dim uidoc As NotesUIDocument    
    Dim doc As NotesDocument, ftdoc As notesdocument
    Dim  nextftdoc As  NotesDocument
    Dim mes As String, mes2 As String, user As String, mes3 As String, server As String
    Dim resp As Variant
    Dim values(2) As Variant
    Dim i As Integer,  y As Integer
    Dim sdate As Variant, picklist As Variant
    Dim st As String
    
    Set db = session.CurrentDatabase
    server = db.Server
    Set uiview = ws.CurrentView
    
    Dim dc As NotesDocumentCollection
    Set dc=uiview.Documents  '  все помеченные доки - будущие ответы
    
    If dc.count = 0 Then
        Messagebox "Выберите документы!"
        Continue=False        
        Exit Sub
    Else
        Print "dc.count" dc.count
    End If
    Dim sig As String
    
    For i=1 To dc.count
        Set doc = dc.GetNthDocument (i)
        sig = doc.GetItemValue( "signer" )(0)
        doc.signname = sig
        doc.RemoveItem("signer")
        Call doc.save (True,False)
        
    Next    
    
    uiview.DeselectAll
    Msgbox "OK!"
    Call ws.ViewRefresh
    Exit Sub
ErrH:
    Print "Ошибка: " & Error(Err) & " в строке " & Erl
End Sub