Private Sub Command2_Click()
   Dim session As NotesSession
   Dim DB As NotesDatabase
   Dim DC As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim doc2 As NotesRichTextItem
 
   Set session = CreateObject("Lotus.Notessession")
   session.Initialize
 
   Set DB = session.GetDatabase(...)
   Set DC = DB.AllDocuments
   Set doc = DC.GetFirstDocument
 
   Open "c:\richtext.txt" For Output As #1
   While Not (doc Is Nothing)
      Set doc2 = doc.GetFirstItem("Body")
 
      RichTextBox2 = doc2.GetFormattedText(True, 400)
      Write #1, RichTextBox2.text
 
      Set doc = DC.GetNextDocument(doc)
   Wend
   Close #1
 
End Sub