关于vb编程实现文件批量替换

我希望帮助我修改一下该程序的错误处！
程序说明：
运行界面出现后，1》可选择盘符下需要查找替换的多个文件，并选择“单个字符串”和“查找和替换”复选框，在“要查找”和“替换为”文本框中输入相应的查找内容和替换内容，最后点击“执行”按钮，会弹出查找和替换成功“报告”，如文件中“中国”的出现次数为3次，或替换的次数为3次。
2》当选择好多个要替换的文件后，选择“字符串对照表”按钮后，相应的“要查找”和“替换为”文本框不可用，会弹出“Table.txt”这样的文本文件，可在“Table.txt”中输入多个替换的文字，如：程序  顺序
                                                                           网络  网路
前面的是替换前的文字，后面是要替换的文字。单击“执行”即可将这几组文字相应替换.
中间遇到许多错误,修改不出来,比如,运行第1》种情况时,会出现"pos = InStr(i, str1, str2)"错误,原因"无效的过程调用或参数".第2》种情况的"Table.txt"文本文件就不出来,相应的会出现错误.
请大家帮我改正下. --------------------编程问答-------------------- 有时间的话帮你看看

补充：VB ,  基础类