Formulário para "Pesquisar" e abrir um aquivo

[EVALDO_SOARES]

Boa noite !

Adaptei um formulário para listar e exibir os arquivos de um determinado diretório, funciona perfeitamente, porém gostaria de criar um textbox para filtro, como é feito por exemplo no explore DO WINDOWS dentro de uma pasta.

Travei nessa parte de filtrar o arquivo caso tenha uma lista muito grande, e não consigo evoluir, se alguém conhecer esse recurso ou tiver um outro projeto que tenha essa finalidade.

 

Obrigado !

Segue  o código do Formulário

 

Private Sub anterior_Click()

On Error Resume Next
WebBrowser.GoBack
proximo.Enabled = True

End Sub

Private Sub CommandButton1_Click()
On Error Resume Next

WebBrowser.GoForward
UserForm_Initialize

End Sub

Private Sub Image11_Click()
On Error Resume Next

WebBrowser.GoForward
UserForm_Initialize

End Sub

Private Sub Image12_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

Private Sub Image12_Click()
On Error Resume Next
'WebBrowser.Navigate endereço.Value

ActiveWorkbook.FollowHyperlink Address:="C:\TESTE", NewWindow:=True

End Sub

Private Sub ir_Click()
On Error Resume Next
'WebBrowser.Navigate endereço.Value

ActiveWorkbook.FollowHyperlink Address:="C:\TESTE", NewWindow:=True

End Sub

Private Sub proximo_Click()
On Error Resume Next

WebBrowser.GoForward
UserForm_Initialize

End Sub

Private Sub TextBox1_Change()
End Sub

Private Sub UserForm_Initialize()
'endereço = ActiveWorkbook.Path & "\"
endereço = "C:\TESTE"

WebBrowser.Navigate endereço.Value
endereço = WebBrowser.LocationURL
WebBrowser.SetFocus
End Sub

Private Sub WebBrowser_StatusTextChange(ByVal Text As String)

endereço = WebBrowser.LocationURL

End Sub