Visual Basic - LIstar Archivos sin Mostrar algunos

Hola amigos,
Si mi problema es ese, debo listar en una ventana todos los archivos *.XLS que se encuentren dentro de un directorio especifico, excepto tres los cuales los utilizo para otros procesos y no quiero que se vean en la lista en cuestion, alguien sabe si es que se puede hacer?, y si es asi me podrian dar luces de como es esto por favor?

Desde ya se los agradezco

Salu2

En este código hay un ListBox llamado L.

Private Sub Listar()
Dim Cadena As String

Cadena = Dir("C:\Directorio\", vbDirectory)
Do While Cadena <> ""
If Cadena <> "." And Cadena <> ".." Then 'Directorios
If Cadena <> "ArchivoEvitar1" And Cadena <> "ArchivoEvitar2" And Right(Cadena, 3) = "xls" Then
L.AddItem (Cadena)
End If
End If
Cadena = Dir
Loop
End Sub

Cualquier cosa mandame un mail

Ernesto