Suponiendo que tu listbox se llama List1 y el cuadro de texto text2:
Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1' recorrer cada elemento de la lista
If InStr(1, List1.List(i), text2, vbTextCompare) Then' busca documentación de la función InSTR
List1.Selected(i) = True'márcalo
End If
Next
End Sub