Visual Basic - ¿Cómo guardo el contenido de un DirListBox?

Alguien que me diga como guardo el contenido de un DirListBox en un archivo de texto, si pueden por favor incluyan un pequeño código que ilustre el proceso.... Gracias....

Aunque sea un ejemplo muy simple, y hay opciones más avanzadas este te puede servir.
dir1.path = "c:\"
mfichero= "c: \ lista.txt "
open mfichero for output as #1
for i = 1 to Dir1.listcount
Print #1, Dir1.List( i - 1)
next
Close #1

'***nota : esto te imprime las carpetas principales no las subcarpetas **