Ayuda con FindItem en control ListView

[ema21del9]

Tengo la siguiente plantilla de ejemplo:



Y luego tengo el siguiente codigo:

Código:

Private Sub Text1_Change()

Dim item As ListItem
Set item = ListView1.FindItem(Text1.Text, lvwSubItem, , lvwPartial)
'item.EnsureVisible
'ListView1.HideSelection = False
'item.Selected = True
If Not item Is Nothing Then
MsgBox ("encontrado")
Else
MsgBox ("no encontrado")
End If

End Sub

El problema es que aunque utilice la constante lvwPartial solo encuentra la cadena entera, de manera que si pongo solo "sony" me dice no encontrado, alguien me puede dar una mano? gracias

Edit: solucionado, si alguien necesita la solucion avise y con gusto la posteo.

[banderousky]

hola yo soy nuevo en estos foros y casi no tengo bases de programacion pero a mi me serviria tu respuesta ya que tengo el mismo problema, yo de preferencia busco por la cadena entera ya que uso una sola palabra en cada registro, saludos