Vba to extract an email attachment and save in a folder set

Question

I\'ve got a vba code that looks through my emails and saves down a file based on its subject in a set folder, any idea how to manipulate the below so it picks up from a sub