Access - Buscar todas las carpetas o archivos que se parezcan a

Hola a todos.....

Quiero que me ayuden con esto. Perdonen si parezco estúpido, pero soy nuevo en programación, aunque ME ENCANTA!!!!

Tengo que buscar en un directorio todos los archivos que contegan un string. Yo tengo este que me funciona de perlas, pero solo me muestra 1 resultado. Si hubiesen más, quisiera que me los presentara.

a = Left(Identificador, 4)
B = Right(Identificador, 4)
Carpeta = Dir("S:\Google Drive\TuToner\Cutupu\" & "*" & a & "*" & "*" & B & "*", vbDirectory)
MsgBox Carpeta

Alguna ayuda? Por fa......

La primera vez se necesita indicarle 'donde' comenzar la búsqueda, el resto (mientras no devuelva una cadena vacía) basta con 'Dir':

Gracias!!!!

Lo intentaré en unas horas y te diré como me ha ido, pero gracias de antemano por tu ayuda!!!!!