麻烦帮改个错

RichTextBox2里的文本格式如下：
1，100.1，220，100，452
2，101.2，110，11，23
3，103.2，11，123，23
4，100.1，22，12，2
。。。
C盘里#3文件格式如下：
A11,111111,100,LA
A12,112344,101,A
A13,123123,104,VBN
......
我想要做的是：检查RichTextBox2里的每行第一个“，”后面3位数字是否在C盘#3文件最后一个“，”前3位数字中。比如C盘那个文件相应位置没有“103”，但是RichTextBox2里出现了，那么我需要把它标识出来，我的代码如下：
Open "d:\源文件.txt" For Output As #1
  Print #1, RichTextBox2.Text
  Close #1
  Open "d:\源文件.txt" For Input As #2
  n = 1
  L = InStr(n, RichTextBox2.Text, vbCrLf)
  Do While L <> 0
  TF = False
  Line Input #2, linestr
  a = Split(linestr, ",")
  Open "c:\1.txt" For Input As #3
        Do While Not EOF(3)
        Line Input #3, StrLine
        If Left(a(1), 3) = Mid$(StrLine, 12, 3) Then
        TF = True: Exit Do
        End If
        Loop
        Close #3
        If Not TF Then
        MsgBox "1.有误，请检查！"
        RichTextBox2.SelStart = n + 1
        RichTextBox2.SelLength = 5
        RichTextBox2.SelColor = vbBlue
        RichTextBox2.SelBold = True
        End If
   n = L + 2
   L = InStr(n, RichTextBox2.Text, vbCrLf)
Loop
close #2
-------------
以上代码执行时，即使有不与#3文件中那3位数相对应 也不提示错误，麻烦各位帮看下愿因。谢谢


[ 本帖最后由 alee817 于 2012-12-21 20:01 编辑 ]