Visual Basic - pregunta de novato

Hola, basicamente lo que estoy buscando es que en un listbox me muestre los archivos cuando yo me muevo por un dirlistbox, es decir como si fuera un filelistbox, pero necesito que sea en un listbox, he probado cosas y no me sale nada, soy novato en esto.
Tengo este codigo pero solo me muestra los ficheros cuando me situo en C:\ cuando cambio de directorio en el dirlistbox no me muestra nada, necesito un poco de ayuda, os dejo el codigo que uso, no se donde puede estar el fallo, muchas gracias.

Private Sub Dir1_Change()

Dim NombreArchivo As String
List1.Clear
NombreArchivo = Dir(Dir1.Path, vbArchive)
While NombreArchivo <> ""
List1.AddItem NombreArchivo
NombreArchivo = Dir
Wend

End Sub

Añadele al Path "\*.*" osea
NombreArchivo = Dir(Dir1.Path+"\*.*" )