Список определенных файлов в папке (с помощью Excel 2003)

Question

Я перечисляю все файлы, которые следуют определенному шаблону, используя этот код:

Dim strFileName As String, strFileSpec As String
Dim FileList() As String
Dim intFoundFiles as Integer

strFileSpec = archivePath & PatID & "*.csv"
strFileName = Dir(strFileSpec)
Do While Len(strFileName) > 0
    ReDim Preserve FileList(intFoundFiles)
    FileList(intFoundFiles) = strFileName
    intFoundFiles = intFoundFiles + 1
    strFileName = Dir                     
Loop

загружает файлы, соответствующие файлу spe c, в массив, который до сих пор работал нормально.

Проблема:
Если у меня есть файлы типа 101-20200120.csv, код находит и другие, например 10123-20200120.csv, которые также соответствуют фильтру. Однако мне нужно перечислить только те, которые имеют ровно 101, а не другие, такие как 1012345.

Как мне это кодировать?