Visual Basic para Aplicaciones - LISTADO DE ARCHIVOS DIRECTORIO

Hola, haber si alguien me puede echar una mano en VB para aplicaciones (concretamente de Word).
Tenfo un form con un boton y un ListBox, la cuestión es que quiero que al pulsar el boton se listen en el ListBox todos los archivos que contiene el directorio definido pero no funciona. ¿alguien puede corregir el error?.

------------------- CÓDIGO -------------------------------

Private Sub CommandButton1_Click()
Directory = "C:\PROGRAMANET\PERROS\MENSUAL\01\"
r = 1
f = Dir(Directory, 7)
Do While f <> ""
r = r + 1
f = Dir()
ListBox1 = Directory
Loop
ListBox1 = "C:\PROGRAMANET\PERROS\MENSUAL\01\"
End Sub

Gracias.

Acá te envío el código tal cual me quedó.

' Dim r As Integer
Dim f As String
Dim Directory As String

ListBox1.Clear
Directory = "C:\Mis documentos\"
'r = 1
f = Dir(Directory, 7)
Do While f <> ""
' r = r + 1
f = Dir()
ListBox1.AddItem (f)
Loop

Si querés que cada líena de listbox tenga el directorio donde dice

Listbox1.AddItem(f) tenés que cambiarlo por

Listbox1.AddItem(Directory & f)

No se si usar la variable r para algo, pero si es para contar el número de elementos directamente podés acceder por lisibox1.ListCount.