With Application.FileSearch
.LookIn = MyDir
.LookIn = "C:\Test\"
.Filename = "*.xls"
MsgBox .FoundFiles.Count
ReDim MyTable(.FoundFiles.Count)
For i = 1 To .FoundFiles.Count
If Mid(Right(.FoundFiles(i), 31), 12, 4) = 2008 Then
MyTable(j) = .FoundFiles(i)
j = j + 1
End If
Next i
End With