Visual Basic - AYUDA NUEVAMENTE SIMPLE POR FAVOR

Tengo el código para que al pulsar un botón, se muestren en un textbox toda la lista de archivos de un directorio. la cuestión es como debo programar un listbox en blanco para que me aparezcan todos los archivos de un directorio (que por ejemplo son documentos de word) y que al seleccionar uno de ellos, se abra el documento. Estoy programando desde el propio modulo de VBA de Word. Es fundamental programar el listbox que esta en blanco para que aparezcan los archivos de un directorio, porque tengo otros dos botones mas que al pulsarlos, aparecen archivos de otros directorios predefinidos y que tambien contienen otros documentos de word.
Por el momento tengo esto, pero no me hace nada ¿igual no es así verdad?:

Private Sub CommandButton2_Click()
Directory = "c:\ability2000\"
r = 1
f = Dir(Directory, 7)
Do While f <> ""
r = r + 1
ListBox1 = ListBox1 & f & Chr(13) & Chr(10)
f = Dir()
Loop
End Sub

Gracias de antemano a esos genios de la programación.

Hola Master, no te rompas el bocho con esto usa el file List, simplemente le configuras para que muestre solo los *.doc y en el path le pones la ruta de tu directorio y listo

Gracias Daniel pero eso me sirve en VB que tiene el control pero en el módulo de VBa de Word no vale simplemente porque no se dispone del boton File List.
¿Y ahora?.