Log Construction in lotus script

Dim ActivityLogRTItem As NotesRichTextItem
Set LogDoc=curDB.CreateDocument
LogDoc.Form="LogForm"   
LogDoc.Server=curdb.Server
LogDoc.StartTime=Now
Set ActivityLogRTItem = New NotesRichTextItem( LogDoc, "Rtxtlogactivity" )
Call ActivityLogRTItem.AppendText( Now+ ": "&"Agent Started")
Call ActivityLogRTItem.AddNewLine( 1)
Call LogDoc.Save(True,False)