Søg i listbox

Hej med jer.
Jeg har et lille problem som jeg håber i kan hjælpe mig med
jeg ville gerne have at den søger på alt der indeholder det i textboxen "hej med dig" hvis jeg søger på "med" skal den vis "hej med dig" og andre ord der indeholder "med" og ikke kun vise det der starter med "med".
Og meget også gerne en forklaring på hvad det er den gør jeg kan "sq" ikke dreje den :).

Dim I As Long
For I = 0 To titelliste.ListCount - 1
        If LCase(Mid$(titelliste.list(I), InStr(titelliste.list(I), vbTab) + 1)) Like LCase(Replace(titelsog.text, " ", "*")) & "*" Then
            titellistesog.AddItem titelliste.list(I)
        End If
    Next