Buscar con textbox en listbox pdf

Dante Amor

Hola Dan solo me falta buscar con el textbox en el listbox los pdf.. Ahí esta el código que me proporcionaste.. Por favor

Dim ruta
'
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    nombre = ListBox1.List(ListBox1.ListIndex)
    archivo = ruta & nombre
    UserForm10.WebBrowser1.Navigate archivo
End Sub
'
Private Sub UserForm_Initialize()
    ruta = "C:\trabajo\"
    arch = Dir(ruta & "*.pdf")
    Do While arch <> ""
        ListBox1.AddItem arch
        arch = Dir()
    Loop
End Sub