record1

En el siguiente link podes encontrar las versiones viejas de Visual Basic de la 1 a la 4: http://www.taringa.net/posts/downloads/7080554/Microsoft-Visual-Basic-para-DOS-y-Windows-1_-2_-3_-4-etc___.html

Esa forma que usas es un poco limitada teniendo en cuenta que estas trabajando en VBA Fíjate algo de este código a ver si te sirve: fLdr = "C:\MiCarpeta" y = msoFileTypeWordDocuments Set buscarArchivo = Application.FileSearch With buscarArchivo...