Sort an Array and Use Array.Length properties
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