Inhalte einer ComboBox sortieren

Ich lese mit folgendem Code die Inhalte für eine Combobox aus zwei Spalten ein, wobei nur Zellen mit einem bestimmten Inhalt berücksichtigt werden

Set SpalteK = Range(Cells(1, 11), Cells(i, 11))
Set SpalteAE = Range(Cells(1, 31), Cells(i, 31))
Set SpalteKAE = Union(SpalteK, SpalteAE)

For Each Zeile In SpalteKAE
If Len(Zeile) = 8 Then CBoxBetriebsNR.AddItem Zeile
Next Zeile

Wie kann ich jetzt die Werte in der ComboBox sortieren?

Danke für die Hilfe im voraus