Sub Searching()
Dim FilePath As String
Dim strFilename As String: strFilename = "C:\Users\Jack\Desktop\test.txt"
Dim strTextLine As String
Dim iFile As Integer: iFile = FreeFile
Dim income_a(10) As Integer, i As Integer
i = 0
Open strFilename For Input As #iFile
Do Until EOF(1)
Line Input...