For I = 0 to List1.ListCount - 1
If Instr(List1.List(I), YourWord) > 0 Then
Text1.Text = (or List2.AddItem) List1.List(I)
Exit For 'Remove line if you want it to find every entry that matches
It looks like you're new here. If you want to get involved, click one of these buttons!