Dim StrSearch$
Dim Lgn As Long
Dim T
Private Sub TextBox1_Change()
StrSearch = "*" & Me.TextBox1.Text & "*"
Me. ListBox2.Clear
If Me.TextBox1 = Empty Then Exit Sub
T = Me.ListBox1.List
For Lgn = 1 To UBound(T, 1)
If T(Lgn, 0) Like StrSearch Then
Me.ListBox2.AddItem T(Lgn, 0)
End If
Next
End Sub