Dim F As Integer
Dim sLine As String
Dim sSearch As String
 
sSearch = Text1.Text
 
 
F = FreeFile
Open "c:\Array.txt" For Input As #F
While Not EOF(F)
  Line Input #F, sLine
  If sLine Like "*" & sSearch & "*" = True Then
    List1.AddItem sLine
  End If
Wend
Close #F