Macro para buscar en subcarpetas

Hola experto, tengo una duda con mi macro, lo que hace es repasar archivos de excel de una carpeta determinada y los nombres encontrados los ponga en un listbox, hasta aquí lo hace bien, pero quiero implementarle una cosa más, "que también busque en las subcarpetas que puedan haber dentro de la carpeta indicada" y eso no lo he logrado espero y me puedas ayudar :
sub repasa_archivos()
'dimensiones
Dim strArchivoExcel As String
Dim strNombreCarpeta As String
'carpeta a repasar
strNombreCarpeta = "C:\Users\BetOo\Desktop\Busca_archivos"
'preparar carpeta
ChDir strNombreCarpeta
strArchivoExcel = Dir("*.xls")
'repasamos los archivos de la carpeta
Do While strArchivoExcel <> ""
ListBox1.AddItem strArchivoExcel
strArchivoExcel = Dir
Loop
End sub