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