VBA code to get all files from a folder(Filesystem object)