改自网上下载的一段代码
资质太差，还请不要见怪
要求：打开一数据文本
然后在打开一条件文本
根据条件文本数值，输出不同的文本文件
总是出错，短期内能力又无法快速提升
所以请大家帮一下忙，谢谢了  

Open fin For Input Access Read As #1
    Do While Not EOF(1)
        FileNumber = FreeFile       '获取一下可用的文件号
        Line Input #1, curLine      '读取一行
       ' fout = savePath + Mid$(curLine, CInt(txtVar.Text), CInt(txtVaren.Text) - CInt(txtVar.Text) + 1) + ".txt" '设置用于输出数据的文件名称
        yid = Val(Mid(curLine, CInt(txtVar.Text), CInt(txtVaren.Text) - CInt(txtVar.Text) + 1))
        
        Do While Not EOF(2)
         Open App.Path & "\" & "tj.txt" For Input As #2
            'OpFile.Text，打开的文件名。
           ' Do While Not EOF(1)
                Input #2, sid, a, b
                    '读入数据。
                    sIdNum = Val(Mid(yid, CInt(txtVaren.Text) - CInt(txtVar.Text) + 1)) '取出的ID值，如1046等。
        
        
         If sIdNum >= a And sIdNum <= b Then
        
        Open savePath + sid & ".txt" For Append Access Write As #FileNumber
                                                
            
        
       ' Open fout For Append Access Write As #FileNumber            '打开输出文件
        Print #FileNumber, curLine      '写入当前行
        Close #FileNumber               '关闭文件
   

   
     End If
   
    Loop
    Loop
     Close #1
     
    Close #2
    Set fso = Nothing
   
    MsgBox "文件处理完成。", vbInformation + vbOKOnly, "信息"
    Exit Sub
PROCESS_ERROR:
    MsgBox "发生了一个运行时错误: " + vbCrLf + Err.Description, vbOKOnly + vbExclamation, "错误"
End Sub

程序原执行结果是将数据文件根据名称不同分解出多个文本文件
我加了个按钮，想要根据条件文本输出不同的汇总类型的文本
希望高手重新来做

很好，谢谢了，
发现0947未挑出来
是因为过程中0被忽略了么？