Værdier i array skal udskrives alfabetisk

Hejsa

Jeg har følgende kode:

For i=1 to ubound(kommuner)
    If cint(0 & session("selectKommune")) = cint(i) Then
        valgt = "selected "
    Else
        valgt = ""
    End if   
    Response.write("<option " & valgt & "value=""" & i &""">" & kommuner(i) & "</option>")
Next

Hvor jeg har et array med en masse kommuner:
dim kommuner(47)
kommuner(1)        = "Arden"
kommuner(2)        = "Brovst"
kommuner(3)        = "Brønderslev"

Er det muligt at få kommunerne udskrevet i alfabetisk rækkefølge? Det skal forblive i det array det er i lige nu. Jeg ved godt at det kan gøres ved at flytte det til en db men det skal det ikke. Kan jeg få dem smidt ud i alfabetisk rækkefølge? Hvis ja hvordan?