For i = 0 to ComboBox.listcount -1
if combobox.list(i) <muss hinter> combobox.list(i + 1) tHEN
Change(i,i+1)
End IF 
next i
 
Sub Change(a as integer, b as integer)
dim tmp as string
tmp = combobox.list(a)
combobox.list(a) = combobox.list(b)
combobox.list(b) = tmp
end sub