Отсортировать элементы массива по убыванию методом выбора - VB

Sub VSort(A() As Integer)
    n% = UBound(A, 1)
    For i% = 1 To n% - 1
        Min% = A(i%)
        imin% = i%
        For j% = i% + 1 To n%
            If A(j%) < Min% Then
               Min% = A(j%)
               imin% = j%
            End If
        Next j%
        A(imin%) = A(i%)
        A(i%) = Min%
    Next i%
End Sub
 
 
Sub Test()
Dim X(1 To 20) As Integer
    
    Randomize
    
    For i% = 1 To 20
        X(i%) = 5 * Rnd
    Next i%
    
    VSort X
    
    For i% = 1 To 20
        Debug.Print X(i%)
    Next i%
End Sub