Break the Log Document if it exceeds the minimum size

If LogDoc.Size>40000 Then
                LogDoc.FinishTime=Now   
                Call LogDoc.Save(True,False)       
                Set LogDoc=curdb.CreateDocument
                LogDoc.Form="LogForm"   
                Set ActivityLogRTItem = New NotesRichTextItem( LogDoc, "Rtxtlogactivity" )
                LogDoc.StartTime=Now   
            End If