Sorting combo boxes ?

Hello all,
Here is some code I am using to populate a combo box with all the layers in
a drawing:

Dim entry As AcadLayer

For Each entry In ThisDrawing.Layers
cmbLayers.AddItem entry.Name
Next

Is there any way to sort this list alphabetically ?
Thanks.

 

thanks for the help - this is what i ended up doing.

Dim intTeller As Integer
Dim intRuns As Integer
Dim varTemp As Variant
Dim entry As AcadLayer
Dim arrLayers() As Variant
Dim iCount As Integer

For Each entry In ThisDrawing.Layers
ReDim Preserve arrLayers(iCount)
arrLayers(iCount) = entry.Name
iCount = iCount + 1
Next

For intRuns = 0 To UBound(arrLayers()) - 1
For intTeller = 0 To UBound(arrLayers()) - 1
If arrLayers(intTeller) > arrLayers(intTeller + 1) Then
varTemp = arrLayers(intTeller + 1)
arrLayers(intTeller + 1) = arrLayers(intTeller)
arrLayers(intTeller) = varTemp
End If
Next intTeller
cmbLayers.AddItem arrLayers(intRuns)
Next intRuns

 

sorry - i had a problem with duplicates and numbers so i changed the code to
this:

Dim intTeller As Integer
Dim intRuns As Integer
Dim varTemp As Variant

Dim entry As AcadLayer

Dim arrLayers() As Variant
Dim iCount As Integer

For Each entry In ThisDrawing.Layers
ReDim Preserve arrLayers(iCount)
arrLayers(iCount) = entry.Name
iCount = iCount + 1
Next

For intRuns = 0 To UBound(arrLayers()) - 1
For intTeller = 0 To UBound(arrLayers()) - 1
If arrLayers(intTeller) > arrLayers(intTeller + 1) Then
varTemp = arrLayers(intTeller + 1)
arrLayers(intTeller + 1) = arrLayers(intTeller)
arrLayers(intTeller) = varTemp
End If
Next intTeller
Next intRuns

For intRuns = 0 To UBound(arrLayers())
cmbLayers.AddItem arrLayers(intRuns)
Next intRuns