Alguna manera de listar archivos de forma ordenada?

[Bardick]

Estoy usando el siguiente codigo para listar todos los archivos de una carpeta:

Código [Seleccionar] Expandir

Dim archivo As String
archivo = Dir("c:\prueba\*.doc")
Do While archivo <> ""
List1.AddItem archivo
archivo = Dir
Loop


El caso es que me funciona, pero quisiera que me lo hiciera de forma ordenada,es posible ordenarlos numericamente en el control List?

Los archivos que tengo son 100.doc,102.doc y 1001.doc pero siempre el 1001 me lo coloca despues del 100 en control list.

[Psyke1]

exale un vistazo a esto:
http://www.telecable.es/personales/jrubi/index.htm?trucos.htm
en la sección: "Ordenar elementos numéricos en un ListBox o ComboBox"

Salu2!

[Bardick]

Gracias por contestar,pero el link no funciona!

De todas formas logre solucionarlo,al final opte por insertar los datos numericos a una base de datos y hacer una consulta en orden ascendente  .