Why ?

Hi guys, i´m wrinting u because u are really GOOD.....

See, i have an application that sends files (Workbook+sheets) from VB to Lotus Notes.
The problem is that the first worbook and sheets go well, then i have an error of reading memmory from excel.
It says, in the task manager o NT the process o excel.exe is UP.
I think the problem is here.
Thanks in advance

Code:

---

  'db.OPENMAIL
        Set doc = db.CREATEDOCUMENT()
        doc.Form = "Memo"
        doc.Subject = Me.Text6.Text
        doc.ENCRYPTONSEND = False
        Set RTI = doc.CREATERICHTEXTITEM("Body")
        doc.Body = Me.Text4.Text
        Set F = RTI.EMBEDOBJECT(1454, "", WorkDir & WSMail.Cells(i, 1) & ".xls", "Body")
        Set F = Nothing
        Flag = doc.Save(True, True)
        StatusBar1.Panels(2).Text = "A Enviar..." & WorkDir & WSMail.Cells(i, 1) & ".xls"
        Call doc.SEND(False, MailUser)
        Set RTI = Nothing
        Set doc = Nothing
        i = i + 1
    Wend
   
    'Close Notes Session
    db.Close
    Set session = Nothing
    winHwnd = FindWindow(vbNullString, "Lotus Notes Desktop")
    If winHwnd = 0 Then winHwnd = FindWindow(vbNullString, "Workspace at Office  - Lotus Notes Desktop")
    If winHwnd = 0 Then winHwnd = FindWindow(vbNullString, "Workspace at Office - Lotus Notes Desktop")
    If winHwnd <> 0 Then RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0)

    WBSource.Close False
    WBMailDef.Close False
    StatusBar1.Panels(2).Text = "Mailing enviado..."
    Me.MousePointer = 1
   
End Sub

---

:) Make a better day... ;)