Visual Basic - como puedo recorer los archivos de una carpeta

como puedo recorer los archivos de una carpeta cuando abro un commondialog con la opcion multiselect actibada , quiero que todos los archivos que se encuentran en esa carpeta los carge un listbox ,
he probado con un for next pero na de na o no se como hacerlo.

Es un ejemplo muy boludo, pone un control list y un commandbutton
el el click del commandbutton pone el siguiente código

Dim Archivo As String
Archivo = Dir("C:\", vbArchive)
Do While Archivo <> ""
List1.AddItem Archivo
Archivo = Dir
Loop