como faço para efetuar um busca parcial num listview

Dim LItem As MSComctlLib.ListItem
  
   Set LItem = lstEstoque.FindItem(txtDescricao, lvwText, , lvwPartial)
  
   If LItem Is Nothing Then Set LItem = lstEstoque.FindItem(txtDescricao, lvwSubItem, , lvwPartial)
  
   If Not LItem Is Nothing Then
      lstEstoque.SelectedItem = LItem
      LItem.EnsureVisible
   End If