Estou com um filtro que me dá um certo problema:

Quero filtra algo como "POEIRA BRANCA" porém o cadastro foi feito como "POEIRA BRANCA " ....Vejam que tem um espaço em branco no final, aí não filtra corretamente.

Sei que posso ir alterar na planilha manualmente e alterar a combobox que preenche isto. Até aí tudo bem, Mas se forem criados outro com espaço em branco no final?

uso a sub abaixo. Onde posso ajustar?

Sub filtrofisicoanexo1()
    Dim Tmp As Long
    Dim i As Long
    Dim sfiltrofisicoanexo1
    
    Tmp = FormPesquisa.ListView1.ListItems.Count
    
        If Me.cbofisicoan1.Value = "" Then
               ' MsgBox "É possível filtrar por qte3!" ', , "qte3 Obrigatória !!!"
                Me.cbofisicoan1.SetFocus
            Exit Sub
        End If
        
    sfiltrofisicoanexo1 = Me.cbofisicoan1.Value
    
    Tmp = FormPesquisa.ListView1.ListItems.Count

    For i = 1 To Tmp
        
        With ListView1
            If .ListItems(i).SubItems(19) > sfiltrofisicoanexo1 Then
                 FormPesquisa.ListView1.ListItems.Remove i
                    i = i - 1
                    Tmp = Tmp - 1
                        If i = Tmp Then Exit For
                            Tmp = FormPesquisa.ListView1.ListItems.Count
                 
            ElseIf .ListItems(i).SubItems(19) < sfiltrofisicoanexo1 Then
                    FormPesquisa.ListView1.ListItems.Remove i
                        i = i - 1
                        Tmp = Tmp - 1
                            If i = Tmp Then Exit For
                                Tmp = FormPesquisa.ListView1.ListItems.Count
            
            ElseIf .ListItems(i).SubItems(19) = sfiltrofisicoanexo1 Then
                 Tmp = Tmp
                    If i = Tmp Then Exit For
                        Tmp = FormPesquisa.ListView1.ListItems.Count
            End If
        End With
    Next
End Sub