leer directorios y subdirectorios

[dexter_x740]

quisiera ver quien puede ayudarme, resulta tengo un procedimiento en visual basic que se supone que debe de listar todos los archivos de un directorio así como de los archivos que se encuentren en subdirectorios de manera recursiva. el problema es que por ejemplo al tener un directorio que tiene un archivo y un subdirectorio y ese subdirectorio a su vez tiene un archivo, el procedimiento lee el subdirectorio y su contenido pero al momento de continuar donde se habia quedado en el directorio principal me da un error de llamada a procedimiento o argumentos invalidos. pongo el codigo que uso:

Sub leer(ruta As String)
Dim ar As String
ar = Dir$(ruta & "*.*", vbDirectory)

If ar <> "" Then


Do While ar <> ""

If ar <> ".." And ar <> "." Then

If (GetAttr(ruta & ar) And vbDirectory) = vbDirectory Then

leer ruta & ar & "\"
Else
lista.AddItem "Archivo:" & ar

'fin de es carpeta o archivo
End If

'fin de checar si es . o ..
End If



ar = Dir$ <--- aqui me marca el error

'fin while
Loop

'fin de hay archivos
End If
End Sub