Læse alle filer i en mappe

Jeg har brug for en kodestump der indlæser alle filerne i en mappe.
En løkke kører alle undermapper i en bestemt mappe igennem, men nu har jeg brug for at stien til alle filer i mapperne indlæses i en liste.

Løkken ser sådan her ud:
Set Biblioteker = fso.GetFolder(BibNavn).SubFolders
For Each Bibliotek In Biblioteker
    Debug.Print Bibliotek.Name
    Taeller = Taeller + 1
    Debug.Print Taeller
    Mapper(Taeller) = Bibliotek.Name
Next

Altså vil jeg gerne have at de filer der ligger i mapperne bliver indlæst i en liste på formularen.

Forstår I?? :D

/Kasper
c",)