VB 怎样查找提取文件中的数值

--------------------编程问答-------------------- 后面的ABC打错了是Abc --------------------编程问答--------------------

    用传说中的 文本导入? --------------------编程问答-------------------- Dim YN As Boolean
Open FileName For Input As #1
    Do While Not EOF(1)
       Line Input #1, s            
       if s = "Abc" then  YN = True
       if YN = True then  Text1.Text = Text1.Text & s & vbTab
       if s = "bc" then   YN = False
    Loop
Close #1 --------------------编程问答--------------------

补充：VB ,  基础类