How to set Combo box Item index

Suppose i have this line of code

Me.ComboBox1.Items.Insert(0, ("Zion"))
Me.ComboBox1.Items.Insert(1, "Able")
Me.ComboBox1.Items.Insert(2, "Dan")
Me.ComboBox1.Items.Insert(3, "Moses")

ComboBox1.selectedindex=0
ComboBox1.sorted=true

NB: my aim is to keep 'Zion' on top of the list in the combo box after
the combo box is sorted.
Hope i made myself clear