我做的搜索小工具运行速度非常慢，求高手指点
我的是一个简单的excel表，代码粘贴在回复里

A2是搜索路径（路径内，子文件夹结构比较庞大）
B列是需要搜索的关键字（做测试大概有30组关键字）
按钮触发
D列显示对应关键字搜索出来的文件数



我做了测试，如果一个关键字搜索出来的结果是1000条左右，用我的工具大概需要十秒左右。但我用total commander搜，只需要两三秒就出结果了。

然后我再拿了一个更庞大的路径做测试，搜索大概30组关键字。用我的工具大概run了二十多分钟才搞定。但是用total commander的话搜一组关键字也只是需要5秒不到。

希望大家看看我的代码有什么地方需要优化一下。十分感谢！！！


[解决办法]
来这看看http://www.xixivi.com/article.asp?id=38，Application.Filesearch替代方法。