Visual Basic - if then else

quisiera saber como es el codigo fuente de un pequeño programa, en donde ingresas 3 numero a,b,c y y tienes que ordenar descendentemente s1.s2.s3 si por favor ayudenme

supongamos los tres numeros en una matriz
a(1), a(2) y a(3)

Dim a(5)
limite=5
a(1) = 9
a(2) = 6
a(3) = 7
a(4) = 1
a(5) = 8
k = 0
otravez:
For x = 1 To limite-1
If a(x) < a(x + 1) Then h = a(x): a(x) = a(x + 1): a(x + 1) = h: k = 1
Next
If k = 1 Then k = 0: GoTo otravez
Debug.Print a(1); a(2), a(3), a(4), a(5)

espero te sirva

saludos