Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim friends(4) As String
friends(0) = "1"
friends(1) = "2"
friends(2) = "3"
friends(3) = "4"
friends(4) = "5"
Array.Sort(friends)
Dim upperBound As Integer = friends.Length - 1
Dim index As Integer
For index = upperBound To 0 Step -1
Console.WriteLine(friends(index))
Next
End Sub
End Class