excel - 列出文件夹中的某些文件（使用 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

它将与文件规范对应的文件加载到一个到目前为止工作正常的数组中。

问题：
如果我有类似101-20200120.csv代码的文件，也会发现其他类似的10123-20200120.csv文件也符合过滤器。但是，我只需要列出那些完全具有的101- 而不是其他喜欢的1012345.

我该如何编码？