VB编程 在文本文件中查找关键词并显示这一行 程序代码怎么写？

Question

分别有三个textbox，其中txt1.text输入文本文件路径名称，txt2.text输入被查找字符串，txt3.text输出查找到的字符串行(属性已经设置成多行)。代码如下：private sub txt2_change()open txt1.text for input as #1do while not EOF(1)line input #1,aif instr(1,a,txt2.text)>0 thentxt3.text=txt3.text & a & vbcrlfend ifloopend sub请问错在什么地方，应该怎么改！麻烦能详细点解释

Answer 1

在 loop 下加一行代码：Close #1