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?:
Me han sugerido usar el comando FileList, el caso es que en la lista de comandos disponivles del módulo de programación no aparece al igual que si que lo hace en VB.

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.