'carrega todas subpastas dentro da pasta musica, ou da pasta que vc setar o "Dir"

Private Sub DirArtistas_Change()

DirRitmos.Path = App.Path & "musicas"

LstArtista.Clear

For i = 0 To DirArtistas.ListCount - 1

x = DirArtistas.List(i)

While (InStr(1, x, "") > 0)

x = Mid(x, InStr(1, x, "") + 1, Len(x) - InStr(1, x, ""))

Wend

LstArtista.AddItem x

Next

End Sub

Obrigado a todos que colaboraram, principalmente o Juan Carlos.

Obs. "Código fornecido por Scorpio Imaster

(RESOLVIDO)