Sort listbox chronologically

Hi, I have a userform which populates a listbox (also in the form). Items in the listbox can be selected. This repopulates the form with the info of the item selected in case the user wants to edit an existing item.

The listbox "lstMileStones" has 3 columns: txtMile.Value (name in text); txtCompDate.Value (date in text); chkCompleted.Value (y or blank)

Items in the listbox get populated like that:

Please Login or Register  to view this content.

I would like to find a way to sort the items in the listbox BY DATE (i.e. second column) whenever an item is added to the listbox.

Any way to do that directly in the VBA code?

Many thanks.

I have found this code which works for sorting a multicolumn listbox on the FIRST value. Any idea how I can modify to sort on the SECOND value which in may case is a date in format(dd-mmm-yyyy)?

Please Login or Register  to view this content.

I got this to work on my second column. ONly problem seems to be that data there are dates in dd-mmm-yyyy format. Sorting seems not to be working correctly... Any idea?

Please Login or Register  to view this content.