NotesItem

Dim item As NotesItem

Set item = doc.GetFirstItem("name")

Call item.AppendToTextList(data)