sorteringsalgoritm - array

Har en vektor med följande värden och ordning; 6, 1, 3, 5, 2, 4 (kan givetvis variera, men visar ett ex)

Nu vill jag sortera denna vektor så att den visar 1, 2, 3, 4, 5, 6
Koden nedan gör nästan rätt. Skriver ut vektorn så här 6, 1, 2, 3, 4, 5. Alltså 6 kommer först men ska egentligen komma sist.

Har börjat så här:
<code>
function sortering(arvektor))

for i = 0 to ubound(arvektor)
for j = 1 to ubound(arvektor)
if arVektor(i) < arVektor(j) then
temp = arVektor(i)
arVektor(i) = arVektor(j)
arVektor(j) = temp
end if
next

next
</code>

Funkar i VB, borde väll funka för ASP också =)

Function SortArray(arrArray)
	For i = 0 To UBound(arrArray())
		For j = i + 1 To UBound(arrArray())
			If StrComp(UCase(arrArray(i)), UCase(arrArray(j)), vbTextCompare) = 1 Then
				tmpArray = arrArray(i)
				arrArray(i) = arrArray(j)
				arrArray(j) = tmpArray
			End If
		Next
	Next

	SortArray = arrArray
End Function