#2
aldo,

Before adding items to the combobox load them in an array and call the following:

Private Sub BubbleSort(aRR() As String)

Dim i As Integer, j As Integer, Low As Integer, Hi As Integer, Temp As String
Low = LBound(aRR)
Hi = UBound(aRR)
For i = Low To Hi - 1
For j = i + 1 To Hi
If aRR(i) > aRR(j) Then
Temp = aRR(i)
aRR(i) = aRR(j)
aRR(j) = Temp
End If
Next j
Next i
End Sub

Then add the contents of the array to the combobox.

ssc