Filtrar datos de un listbox

[Rodrigo Pereyra]

Mi consulta es la siguiente: tengo un listbox dentro de un userform en el cual se listan los archivos que se encuentran dentro de una carpeta mediante la siguiente macro:

ListBox1.Clear

Set fso = CreateObject("Scripting.FileSystemObject")

Ruta = ThisWorkbook.Path

Set Carpeta = fso.GetFolder(Ruta)

Set ficheros = Carpeta.Files

For Each Archivo In ficheros

ListBox1.AddItem Archivo.Name

Next Archivo

Necesito que en otro listbox (listbox2) se muestren los items del listbox1 que cumplan con la condición de empezar con la letra "P".

Agradecería que me dieran una idea de como hacerlo.

Desde ya muchas gracias

[Antoni]

ListBox1.Clear: ListBox2.Clear

Set fso = CreateObject("Scripting.FileSystemObject")

Ruta = ThisWorkbook.Path

Set Carpeta = fso.GetFolder(Ruta)

Set ficheros = Carpeta.Files

For Each Archivo In ficheros

ListBox1.AddItem Archivo.Name

If Left(Archivo.Name, 1) = "P" Then ListBox2.AddItem Archivo.Name

Next Archivo

[Rodrigo Pereyra]

Muchas gracias, era exactamente lo que necesitaba. Funciona perfecto. Saludos