Visual Basic - AYUDA MUY SIMPLE POR FAVOR

Tengo un form con un textbox y un boton, mi intención es que al pulsar el boton aparezca un listado con todos los nombres de archivos. El caso es que con el siguiente código solamente me lista un archivo. Que debo modificar o añadir para que liste todos?.

Private Sub CommandButton1_Click()
Directory = "c:\ability2000\"
r = 1
TextBox1 = "Filename"
f = Dir(Directory, 7)
Do While f <> ""
r = r + 1
TextBox1 = f
f = Dir()
Loop
End Sub

Gracias.

No se usa dir(directorio,"*.*") ?

En todo caso, en TextBox1 = f solo pones 1 archivo

El TextBox1 debe ser multilinea y ponerle asi :

TextBox1 = TextBox1 & f & chr(13) & chr(10)