Exibir uma sequência de dados em ordem decrescente

Olá!
Gostaria de uma orientação sobre como exibo uma sequência de números em ordem decrescente no VBA. Encontrei um exercício em que me surgiu essa dificuldade.
O enunciado informa: “3. Exibir as posições dos valores abaixo da média do grupo.”
Consegui chegar até metade do caminho:
‘Objetivo: Lista 11’

Sub ex01()

Dim vetor(1 To 3) As Double
Dim menor As Double
Dim div As Double
Dim contador As Double
Dim media As Double

For i = 1 To 3

vetor(i) = InputBox("Informe as notas: ")
div = div + vetor(i)
Next
media = div / 3
MsgBox ("A media do grupo é: ") & media

For i = 1 To 3
If (vetor(i) > media) Then
contador = contador + 1
End If
Next
MsgBox ("Notas maiores que a media: ") & contador

Poderiam me dar uma luz? Desde já agradeço!

Acho que você consegue usando a função menor do excel. Menor(x:y;contador). Há como usar a função no vba.

worksheetfunction.small(vetor,contador)