¿Cómo filtrar información Listbox? La información que se visualiza son archivos de carpetas

Estimados(as),

En esta misma web encontré la manera de visualizar archivos de carpetas en un lisbox, el código es el siguiente:

Private Sub CommandButton1_Click()
'x Elsamatilde
'Indicar la carpeta -
carpeta = "D:\Descargas\Facturas\"
ChDir (carpeta)
'ajustar extensión de los libros o dejar *.* si se quieren todos los archivos de la carpeta
archi = Dir("*.xls")
'se inicia el bucle
Do
ListBox1.AddItem archi
archi = Dir()
'se repite el bucle hasta que no se encuentren archivos
Loop Until archi = ""
End Sub

El asunto es que los archivo que contienen la carpeta y es visualizado en el listbox son varios y de un solo formato de extensión, aunque eso se puede filtrar con el código anterior. El asunto es que necesito filtrar por fecha, ya que cada archivo tiene un orden por fecha (año mes día) en el nombre del archivo.

Les pido ayuda para que saber el código para filtrar según el año y el mes del archivo y que solamente aparezcan los archivos diarios según el mes y el años.

Le agradezco la ayuda.

Saludos.