Visual Basic para Aplicaciones - URGENTE: recorrer directorio

hola,

Soy nuevo en visual basic, pero necesito recorrer un directorio que me introduzcan por teclado quedandome con los ficheros .xls que existan en ese directorio.

Y luego analizar cada uno de esos ficheros por separado(¿cómo accedo a cada uno de ellos?).

muchísimas gracias, es muy urgente!!!!!!!!!

Hola

'El siguiente ejemplo toma la ruta que se encuentra en una caja de texto y y busca los archivos de extencion XLS y los almacena en un arreglo

'Coloca en un formulario un Boton(Command1) y un TextBox(Text1)
y el siguiente codigo:

Option Explicit

Private Sub Command1_Click()
Dim Directorio As String
Dim Archivos() As String
Dim NumArchivos, Contador As Integer

Directorio = Text1.Text
Directorio = Dir(Directorio & "*.xls")
While Directorio <> ""
NumArchivos = NumArchivos + 1
ReDim Preserve Archivos(NumArchivos)
Archivos(NumArchivos) = Directorio
Directorio = Dir
Wend
For Contador = 1 To NumArchivos
MsgBox Archivos(Contador)
Next
End Sub

Saludos
www.theemulator.tk