Sort Array of numbers

[BenJones]

Hi this something I came up with to sort a basic array of numbers.
and I thought I share it with the rest in the hope it come in useful.

Private Sub Swap(a As Variant, b As Variant)
Dim t As Variant
    'Swap a and b
    t = a
    a = b
    b = t
End Sub
 
Private Sub Sort(arr As Variant)
Dim X As Long, Y As Long, Size As Long
On Error Resume Next
 
    'Get array size
    Size = UBound(arr)
    
    'Do the sorting.
    For X = 0 To Size
        For Y = X To Size
            If arr(Y) < arr(X) Then
                'Swap vals
                Call Swap(arr(X), arr(Y))
            End If
        Next Y
    Next X
End Sub

Example

Private Sub Command1_Click()
Dim Nums(0 To 5) As Variant
    'Add some random numbers.
    Nums(0) = 4
    Nums(1) = 2
    Nums(2) = 6
    Nums(3) = 3
    Nums(4) = 5
    Nums(5) = 0.1
    
    Call Sort(Nums)
    'Display sorted results.
    MsgBox Nums(0)
    MsgBox Nums(1)
    MsgBox Nums(2)
    MsgBox Nums(3)
    MsgBox Nums(4)
    MsgBox Nums(5)
End Sub

[4x2y]

Your method is known as Bubble sort it is suitable for array with small items. for big size array there are many other methods which is very fast and very complex too. See this topic