009 009 889 889 009 889 889 889 889 889 889 889 889 889 889 889 889 889 889 889 889 889 889 889
889 889 889 889 889 889 889 889 009 009 009 009 889 889 009 009 009 009 009 009 009 009 009 009        
以上是数据文件内容

Dim S As String   
        Dim i, j, Gs As Integer
        Dim xx As Object
        For j = 0 To T2.Text
            S = TextBox1.Text.Split(vbCrLf)(j)   
            xx = Split(S, " ")   
            For i = LBound(xx) To UBound(xx)   
                If Mid(xx(i), 1, 3) = "889" Then---------------这个地方总是无法检测到XX（i）第一列的数据！
                    Gs += 1
                    'MsgBox(ComYs.Text & "  第" & j & "行")
                End If
                'MsgBox(xx(i))
            Next
        Next j