Boa noite ! Meu nome é Erwin e é a primeira vez que eu abro um tópico aqui no fórum, em primeiro lugar eu gostaria de agradecer a ajuda de todos aqui no fórum, vocês são show...
em segundo lugar eu gostaria de ajuda alguém referente a uma rotina em meu projeto conforme abaixo;

Tenho alguns userfoms que possui listview e textbox (Usado para o filtro) segue rotina;

Private Sub TextBox2_Change()

Dim strObjetoBuscar As String
Dim lngResultado, lastRow As Long
Dim a As Integer
Dim coluna
coluna = 1
lsProdutos.ListItems.Clear
strObjetoBuscar = TextBox2.Value
strObjetoBuscar = LCase(strObjetoBuscar)
lastRow = Plan1.Cells(Plan1.Cells.Rows.count, "a").End(xlUp).Row

For a = 2 To lastRow
lngResultado = InStr(1, Plan1.Cells(a, coluna), strObjetoBuscar, vbTextCompare)
If lngResultado > 0 Then
Set li = lsProdutos.ListItems.Add(Text:=Format(Plan1.Range("A" & a).Value, ""))
li.ListSubItems.Add Text:=Plan1.Range("B" & a).Value

End If

Next
End Sub

Até aqui beleza....

Ele retorna o filtro normalmente, porém ao usar o comando abaixo no listview que foi filtrado no textbox2 ele não retorna o registro correto na minha label, abaixo código;

Private Sub lsProdutos_ItemClick(ByVal Item As MSComctlLib.ListItem)

cxCadastro.lbSabor2.Caption = Me.lsProdutos.SelectedItem.SubItems(1)

End Sub

Obs: Se eu não usar o filtro(textbox2) ele carrega os dados normalmente (Os que eu realmente quero), mas quando eu uso o filtro ele não carrega dos dados que eu quero, alguém poderia me ajudar;

Segue em anexo uma cópia do projeto (É meu primeiro projeto, eu peguei a maioria das rotinas aqui no fórum, sou iniciante)..... Espero que fique fácil de entender a minha dúvida.... Até mais.