¿Cómo ordenar numéricamente un listbox?Excel y VBA

A tod@s!

Estamos en Excel con VBA

Tengo un listbox con items alfanuméricos, la parte numérica recorriendo los items ya la he extraído siendo la siguiente:

5
2
1
333

Quiero una macro para cargar estos Items ordenados en otro ListBox.

¿Cómo hacerlo? ¿Aceptas el reto?