如何用VB把一个txt文件中的数据经运算后存到另一个txt文件中

Question

如何用VB把一个txt文件中的数据经运算后存到另一个txt文件中（两个文件的数据顺序不变），求教VB代码。
如下例，如何用VB实现：
A.TXT文件如下：
102
170
246
338
……
用vb把A.txt文件中的各行结果乘2加1后存到B.txt文件中。
B.txt文件结果：
205
341
493
677
……
谢谢各位高手！

Answer 1

Private Sub Command1_Click()
Dim a As String
Open App.Path & "A.txt" For Input As #1
Open App.Path & "B.txt" For Output As #2
While Not EOF(1)
Line Input #1, a
Print #2, Val(a) * 2 + 1
Wend
Close #1
Close #2
End Sub