求VB更新文本内某一数据并保存更新前数据的代码！

例：1.txt，2.txt文本，分别存放目录为D:\A\ 和D:\B\ 下 1.txt 内容为：
123,123,moda，0.00,1.00,0.00  
123,123,moda，-1.00,1.00,0.00
123,123,moda，3.00,1.00,0.00
123,123,moda，0.00,1.00,0.00  
2.txt内容为：
124,124,vm，3.00,1.00,0.00
124,124,vm，0.00,1.00,0.00  

1.txt中只将moda,后的0更新为1，结果为：
123,123,moda，1.00,1.00,0.00  
123,123,moda，-1.00,1.00,0.00
123,123,moda，3.00,1.00,0.00
123,123,moda，1.00,1.00,0.00  
2.txt中只将vm,后的0更新为1，结果为：
124,124,vm，3.00,1.00,0.00
124,124,vm，1.00,1.00,0.00  

最后将更新前的1.txt和2.txt存放到 D:\back\目录中。
求VB6.0的源代码和设计方法，谢谢！！ --------------------编程问答-------------------- 在线等答案！谢谢各位英雄！ --------------------编程问答-------------------- 继续等！！！！！！！！！！！ --------------------编程问答-------------------- 还在等！

补充：VB ,  基础类