Come pooso aprire una directory e leggere tutti i nomi dei file immagine presenti, per inserirli in un'array??

adesso faccio cosi e li inserisco in una listbox

codice:
Private Sub Form_Load()
estensione = "jpg"
Thefile$ = Dir$("D:\Foto Donne\*." & estensione)
While Thefile$ <> ""
    ' scrivi in una listbox ad esempio
    List1.AddItem Thefile$
    Thefile$ = Dir$
Wend
End Sub
grazie mille