Visual Basic - Recorrer un directorio

Hola.
Necesito saber como crear un bucle que me recorra todos los archivos de un directorio, y si es posible solo los archivos con una determinada extension. El caso es que necesito crear un proceso que me convierta los Bitmaps de un directorio a JPG, pero tengo una burrada de BMP´s.
Muchas gracias.

La siguiente función hace lo que necesitas.

Sub BuscaArchivos(LST As ListBox, sDir As String, Extension As String)
Dim sPath As String
sPath = Dir(sDir & "\*." & Extension, vbNormal + vbHidden)
Do While sPath <> ""
LST.AddItem sPath
sPath = Dir
Loop
End Sub

Para llamarla puedes hacer algo como esto:

Private Sub Form_Load()
BuscaArchivos List1, "c:", "txt"
End Sub

Espero que te sirva...