Private Sub Text1_Change()
Dim a() As String
Dim b As String
Dim f As Integer
Dim sLine As String
Dim sSearch As String
 
 List2.Clear
 
sSearch = Text1.Text
 
 
f = FreeFile
Open AppPathGet & "Array.txt" For Input As #f
While Not EOF(f)
  Line Input #f, sLine
  If sLine Like "*" & sSearch & "*" = True Then
 
 
 
 
b = sLine
a = Split(b, "|")
 
 
List2.AddItem a(0)
 
 
 
  End If
Wend
Close #f
End Sub