Como filtrar dados no Listbox

Este é um código de exemplo que tenho a muito tempo, mas como o pessoal tem pedido muito, vou deixá-lo em uma forma mais visível.

Como o VBA carece de controles de apresentação de dados mais avançados, como Grids e Listas complexas, acabamos apelando para o controle ListBox para apresentação de dados vindos de ResultSets (particularmente, prefiro apresentar os dados em uma planilha). Bom, como os dados já estão na LisBox, porque não aplicar o filtro nele mesmo?

Para ver um exemplo, proceda da seguinte forma:

• Em um novo arquivo, crie uma lista de dados na Plan1, na coluna A a partir da célula A1
• Abra o VBA (Alt+F11)
• Adicione um UserForm ao projeto
• No UserForm, adicione um controle TextBox e um ListBox (mantenha os nomes padrão dos controles)
• Cliquem em F7 para exibir o código e adicione o seguinte:

Option Explicit

Private TextoDigitado As String

Private Sub ListBox1_Click()

End Sub

Private Sub TextBox1_Change()

    TextoDigitado = TextBox1.Text

    Call PreencheLista

End Sub

Private Sub UserForm_Initialize()

    Call PreencheLista

End Sub

Private Sub PreencheLista()

    Dim ws As Worksheet

    Dim i As Integer

    Dim TextoCelula As String

    Set ws = ThisWorkbook.Worksheets("Planilha1")

    i = 1

    ListBox1.Clear

    With ws

        While .Cells(i, 1).Value <> Empty

            TextoCelula = .Cells(i, 1).Value

            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then

                ListBox1.AddItem .Cells(i, 1)

            End If

            i = i + 1

        Wend

    End With

End Sub