How to write a Find and and Mid function in vba?

[alexduy]

I wrote this for loop to loop through my outlook subfolder and find e-mail with attachments and save it to a specific folder. It also look at the subject line of the e-mail and exact invoice number. Basically it find the location of "#" in the subject line and and pull the invoice 8 digits after that # character.

This is the line of code that doesn't caused the error. I think it has to do with the "#". Can someone show me how to write this line of code correctly?

InvoiceNumber = Mid(Item, Find("#", Item) + 1, 8)

Please Login or Register  to view this content.

[AlphaFrog]

Please Login or Register  to view this content.

Above is the syntax for the worksheet function FIND. It is not applicable in VBA.

The equivalent in VBA is Instr

Please Login or Register  to view this content.

[alexduy]

I tried it and it works. Thank you so much for your help.