Lo escribi para alguno de mis programas.. consiste en buscar dentro de un ListBox, pero no es solo eso.. buscar por palabras clave, asi como el itunes.. por ejemplo: tengo un lisbox con lo siguiente--

hola como estas
muy muy bien y tu
bien tambien
que bueno escucharlo

y escribo en el text1 "escuch bue" se selecciona "que bueno escucharlo" en el ListBox y si escribo "escuch bueno bueno" no se selecciona porque hay un solo "bueno" en el ListBox.

Código:
Sub BuscarListBox(Lista As ListBox, aBuscar As String, InicioBusqueda As Integer)
Dim aPalabras() As String
Dim Elemento As String
Dim NumeroLista As Integer
Dim PalEnc As Integer
aPalabras = Split(aBuscar, " ")
For NumeroLista = InicioBusqueda To Lista.ListCount - 1
PalEnc = 0
Elemento = Lista.List(NumeroLista)
For nPalabra = LBound(aPalabras) To UBound(aPalabras)
If InStr(1, Elemento, aPalabras(nPalabra), vbTextCompare) Then
Elemento = Replace(Elemento, aPalabras(nPalabra), vbNullString, 1, 1, vbTextCompare)
PalEnc = PalEnc + 1
End If
Next
If PalEnc = UBound(aPalabras) + 1 Then
Lista.ListIndex = NumeroLista
Exit For
Else
Lista.ListIndex = -1
End If
Next
End Sub
ojala les guste..

54lu2...