Sub AddReadLog(doc As NotesDocument,strLog As String)
Dim item As Variant
Set item = doc.GetFirstItem("F_ReadLog")
If item.Type <> RICHTEXT Then
Set item = New NotesRichTextItem(doc,"F_ReadLog")
End If
Call item.AppendText(strLog)
Call item.AddNewLine(1)
End Sub