VB中文本内容搜索的问题

VB从指定的文本文件，搜索该文本的内容，如果符合搜索条件的话就把搜索到的字符的当行全部字符，输出到LIST空间显示出来。

谁能帮我解决这个难题。。。。

新手啊~~~

大家帮忙！！！

万分感激！！

给个实例，不然新手是看不明白的哦！！

private sub outs(filepath as string ,strr as string)

dim ss as string

open filepath as input as #3

do until eof (3)

line input #3,ss

if instr(1,ss,strr)>0 then list1.additem ss

loop

close #3

end sub