[megaloman]

Проверено, работает, а если ничего не выдаёт, значит файлы с именами, соответствующими маске, не существуют(м б Вы неправильно описали маску в регулярном выражении). Я правильно понял, что в вашей маске ??????? обозначают 7 символов? Попробуйте вместо
If Re.Test(File.Name) Then MsgBox File.Name
поставить
MsgBox File.Name
и убедитесь, что скрипт просматривает все файлы в указанной папке.
Прикрепляю файл, в котором приведена смесь файлов, среди которых есть соответствующие маске. Там же и текст скрипта