VB中直接修改文本文件指定行内容，不另创建文件。

VB中直接修改文本文件指定行内容，不另创建文件。Private Sub Command1_Click()
Dim txt As String, i As Long
Open "1.txt" For Input As #1
Open "2.txt" For Output As #2
Do While Not EOF(1)
  Line Input #1, txt
  i = i + 1
  If i = 3 Then txt = Text1.Text + Text2.Text
  Print #2, txt
Loop
Close
End Sub
目前我是把文件1的内容读出，然后指定到第3行，无论内容是什么，直接修改内容为两个文本框内的内容，生成文件2，但是我是想不生成文件2 ，直接修改文件1 ，但老是出错，请指证。