文本文件操作的问题！有谁能帮忙解决一下！感激！（加急！快帮手啊！）

我是用下面的方法能在文本文件里找出指定的字符串的！
Dim strLine As String
q = InputBox("请输入要查找的字符串")
Open "文件路径" For Input As #1
Do While Not EOF(1)
Line Input #1, strLine
y = InStr(strLine, q)
If y <> 0 Then
Print "找到字符串"; q
'Print #1, "新行的内容"
Close #1
Exit Sub
End If
DoEvents
Loop
Close #1但是，当我想在找到字符串的下面插入一新行
Print #1, "新行的内容"
时，程序出错——打开文件的方式不对！再当我把打开文件的方式改成
Open "文件路径" For Append As #1
时，用上面的程序没有成功在文件里找出指出指定的字符串！有谁能帮忙解决一下！感激！