Sortering af array

denne her kan bruges...
Sub ordenar(ByRef theArray() As String, isNum As Boolean)
  Dim Index As Integer
  Dim Counter As Integer
  Dim Counter2 As Integer
  Dim Smallest As Integer
  Dim Temp As String

  For Counter = 0 To (UBound(theArray) - 2)
      Smallest = Counter
      For Counter2 = (Counter + 1) To UBound(theArray) - 1
          If isNum Then
              If Val(theArray(Smallest)) > Val(theArray(Counter2))
Then
                  Smallest = Counter2
              End If
          Else
              If theArray(Smallest) > theArray(Counter2) Then
                  Smallest = Counter2
              End If
          End If
      Next Counter2
      Temp = theArray(Counter)
      theArray(Counter) = theArray(Smallest)
      theArray(Smallest) = Temp
  Next Counter
End Sub

Hvordan

Jeg skal udfylde en select box med mine array ord.

A1 = split(str," - ")

for i = LBound(A1) to UBound(A1)
if A1(i) <> "" then
Response.Write "<option>" & A1(i) & "</option>"
end if
next

Jeg fandt en anden der virkede.