' If the number of elements being sorted exceed 30 (or speed is what you're after -- and who isn't?!) -- use a QuickSort. The term "Quick" means what it says.
Do
AnyChanges = False
For i = 1 To UBound(myArray()) - 1
If myArray(i) > myArray(i + 1) Then
' These two need to be swapped
SwapFH = myArray(i)
myArray(i) = myArray(i + 1)
myArray(i + 1) = SwapFH
AnyChanges = True
End If
Next i
Loop Until Not AnyChanges