我的程序见附件，运行后双击文件框中的“001.2530R1-8026490-01”文件，稍等片刻，可得结果。

问题1：运行完毕后 List1.ListCount 怎么会是负的，这样我就不能逐条读取List1中的内容（For i = 0 To List1.ListCount - 1）；
问题2：能否加快运行速度？
问题3：想把List1中的内容逐条再写进“001.2530R1-8026490-01”文件，接在原文件内容的后面写入，该如何编写程序？