Sorting array on the basis of Length of element

Hi,

One combobox is populated from an array of string

Me.ComboBox1.List = ItemList

And ItemList is the list of unique items taken from an ongoing column

("Itemmmm,Itemm,Itemmm,Item")

Need it to be
("Item,Itemm,Itemmm,Itemmmm")

Can't sort it on the sheet

I am getting the unique list from D column with a dictionary way.

Thanks in advance