FileSystemObjectを使って下のような処理をしています。
拡張子が TXT 以外のものが多数あり、時間がかかっています。
特定の拡張子のFilesコレクションを取得する方法はありますか？

Dim fso As New FileSystemObject, fl As File
For Each fl In fso.GetFolder(ネットワーク上の共有フォルダ).Files
If UCase$(fl.Name) Like "*.TXT" Then
'処理
End If
Next fl