Странное поведение команды Dir

[viter.alex]

Допустим, мне нужно прочитать из папки все файлы с расширением *.doc:

sFileName = Dir(sPath & "\" & "*.doc")
While Len(sFileName) <> 0
  Debug.Print sFileName
  sFileName = Dir
Wend

Но находит всё: и docx, и docm. Приходится вводить условие:

sFileName = Dir(sPath & "\" & "*.doc")
While Len(sFileName) <> 0
  If sFileName Like "*.doc" Then
    Debug.Print sFileName
  End If
  sFileName = Dir
Wend

Какие будут мысли?

[Aent]

Это фича наших друзей из Бангалора
В коде библиотеки интерпретатора VBA для Dir стоит что то вроде
if Left(Right(sPath,5),2) = "*." and Left(sPath,1) = "*" then
При выборке очередного имени проверять только 3 символа расширения
end if
Я когда то вместо like проверял что правая точка в имени стоит в -4 позиции

[viter.alex]

А я уж думал это у меня что-то с логикой. Когда уже привыкнут, что расширение у файла может иметь более трёх знаков?