<code>  Dim Index As Integer
  Dim I As Integer
 
  With List1
    Index = -1
    For I = 0 To .ListCount - 1
      If .List(I) Like "*" & Text1.Text & "*" Then
        Index = I: Exit For
      End If
    Next I
    .ListIndex = Index
  End With</code>