1     Dim wks As New NotesUIWorkspace 2     Dim uidoc As NotesUIDocument 3     Dim doc As NotesDocument 4     Dim rtitem As Variant 5     Dim object As NotesEmbeddedObject 6     Dim sizeInBytes As Long 7      8     Set uidoc = wks.CurrentDocument 9     Set doc = uidoc.Document10     Call uidoc.Save()11     12     Set rtitem = doc.GetFirstItem("")13     If rtitem Is Nothing Then14     Else15         If rtitem.Type = RICHTEXT Then16             If Not Isempty(rtitem.EmbeddedObjects) Then17                 Forall o In rtitem.EmbeddedObjects18                     Set object = rtitem.GetEmbeddedObject(o.Name)19                     sizeInBytes = sizeInBytes + object.FileSize20                 End Forall21                 Msgbox Cstr(sizeInBytes/1024)      22             End If23         End If24         25     End If