add a second criteria to text extraction from documents macro

[clintonp1976]

good day experts,

I have a word macro which goes into each document with a windows folder, grabs the email addresses in that folder, and then adds that email address to a list in a new document.

I need it to do that ASWELL as include the filename from the document that email address was extracted from next to the email address after a coma

the VB Code is attached: Please Help me.