Dim c As Integer
Dim A As String
 
Open App.Path & "\names.ini" For Input As #1
 
Do Until EOF(1)
 
Line Input #1, A
 
For c = 0 To List1.ListCount - 1
If InStr(A, List1.List(c)) > 0 Then List1.AddItem A
Next
 
Loop
Close #1