Zone de texte

Bonjour;

je souhaites récupérer des valeurs de ma Msgbox dans une zone de liste

Voici mon code
<Acces></VBA>
Dim fso, fol, fil
Set fso = CreateObject("Scripting.FileSystemObject")
Set fol = fso.getFolder("C:\Documents and Settings\amine zerd\Bureau\BAN")
For Each fil In fol.Files
MsgBox fil.Name

A la place de Msgbox j'ai mis list.additems(fil.name) mais j'ai un beug

Est ce que quelqu'un peut m'aider

Merci beaucoup