请问vb6.0对txt文件进行读写操作有关问题

请教vb6.0对txt文件进行读写操作问题
有两个txt文件A和B，从A中读取数据并进行判断，如果符合判断条件则写入B文件中，我用了以下的程序，不进行IF判断时是可以正常读写操作的，为何加入IF语句后在B文件中就没有输出结果了呢？

Dim   TStr   As   String
Dim   intext   As   String

Private   Sub   Command1_Click()
        Open   ( "c:\test1.txt ")   For   Input   As   #1
                Do   While   Not   EOF(1)
                        Line   Input   #1,   intext
                        TStr   =   TStr   +   intext   +   Chr(13)   +   Chr(10)
                Loop
                Close   #1
       
        Open   ( "c:\test2.txt ")   For   Output   As   #2
        If   Trim(TStr)   =   Trim( "asd ")   Then         '对读取的数据进行判断
                Print   #2,   TStr     '如果符合判断条件则在test2中加入数据
        Else
                Close   #2
        End   If
        Text1.Text   =   TStr
End   Sub

------解决方案--------------------
Open ( "c:\test2.txt ") For Output As #2
If Trim(TStr) = Trim( "asd ") Then '对读取的数据进行判断
Print #2, TStr '如果符合判断条件则在test2中加入数据
Else
Close #2
End If
-------------
如果If语句条件成立,那你什么时候关闭#2文件啊
------解决方案--------------------
改改试下
if tstr= "asd " then
open ( "c:\text2.txt ") for output as #2
print#2,tstr
close#2
else
exit sub
endif

------解决方案--------------------
Line Input 之后，自动到下一行。

print 后自动到下一行。


Dim intext As String

Private Sub Command1_Click()
Open "c:\test1.txt " For Input As #1
Open "c:\test2.txt " For Output As #2

do while not EOF(1)
Line Input #1, intext

If intext = "asd " Then '对读取的数据进行判断
Print #2, intext '如果符合判断条件则在test2中加入数据 "
End If
loop

Close #2
Close #1
End Sub