Cambiar GetDefaultFolder para descargar archivos adjuntos

Hola Expertos!! Tengo un problema con unas lineas de código, en mi programa necesito descargar archivos adjuntos con nombres específicos!! El tema es que encontré un código que me descarga desde access 2007 todos los archivos adjuntos de mi correo outlook, lo cuál es mucho, lo que necesito es descargar solo los archivos que tengan nombre 01_GESTGM, 02_GESTGM, 03_GESTGM.... Eso se podrá hacer?

de ante mano muchas gracias... Les dejo el código que encontré

With objMAPI.GetDefaultFolder(6) '6=olFolderInbox
'Recorrer los elementos de la carpeta

Dim J, QUE As Integer J = 1: QUE = 0

'Muestra en control txtTotCorreos la cantidad de correos

txtTotCorreos = .Items.Count 'Do While .Items.Count > 0

Do While J <= .Items.Count

'Recuperar el primer elemento

On Error Resume Next

Set Item = .Items(J)

'Muestra en control txtNumCorreo el número del correo analizado.

txtNumCorreo = J

'Muestra en control txtAsunto el nombre del asunto del correo analizado.

txtAsunto = .Items(J)

'Recorre y guarda los ficheros del correo electrónico.

For Each Attach In Item.Attachments

Attach.SaveAsFile "C:\RespAdjuntos\" & Attach.DisplayName

'Muestra en control txtNomArchivo el nombre del archivo

txtNomArchivo = Attach.DisplayName

'Contador de archivos guardados

K= K + 1

'Muestra en control txtArchivosRevisados la cantidad de archivos recorridos txtArchivosRevisados = K

Next J = J + 1

Loop

End With