If subdoc.HasItem("DocReaderGFLeader") Then
Set item = subdoc.ReplaceItemValue(...)
item.IsReaders = True
Else
Set item = New NotesItem( subdoc, <Feldname>, <Wert>, READERS)
End If
doc.replaceItemValue( "DocReaderGFLeader", GFLeader ).isReaders = true