Access - Filtro en listbox con datos del directorio de archivos

Hola a todos/as.
Vamos a ver si alguien me echa una mano porque no consigo arrancar.
Tengo un cuadro de lista llamado (ListaArchivos) el cual su función es la de cargar de una carpeta del directorio todos los archivos.

Dim stMiArchivo As String
stMiArchivo = Dir("S:\******\*******\ESCRITOS ENVIADOS\*.*", vbDirectory)
Do While stMiArchivo <> ""
ListaArchivos.AddItem stMiArchivo
stMiArchivo = Dir
Loop
End Sub

Hasta aquí todo va bien, el problema es que quiero poner un cuadro de texto que me permita buscar en todos los archivos que aparecen en el cuadro de lista y no lo consigo hacer.
Gracias de antemano.