Module Module1
Sub Main()
Dim arr As String() = New String() {"vb.net", "java", "php", "python", "c#"}
Array.Sort(arr)
Array.Reverse(arr)
For Each element As String In arr
Console.WriteLine(element)
Next
End Sub
End Module
' run:
'
' vb.net
' python
' php
' java
' c#