Private Sub Command2_Click()
 
 
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
 
 
 
   List2.AddItem AdrArray(1, i + 1)
 
  End If
Wend
Close #f
End Sub