Dim cResult(cbTest.Items.Count) As String
For Each item As String In cbTest.Items
cResult(cbTest.Items.IndexOf(item)) = item
Next
cResult.Sort(cResult)
cResult.Reverse(cResult)
Dim newindex As Integer
For Each item As String In cResult
If item Is Nothing Then
newindex = cResult.IndexOf(cResult, item)
Exit For
End If
Next
Dim cnewResult(newindex - 1)
cResult.Copy(cResult, 0, cnewResult, 0, newindex)
cnewResult.Sort(cnewResult)
cbTest.Items.Clear()
cbTest.Items.AddRange(cnewResult)
MsgBox("End Clear")