Imports System
Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
Public Shared Sub Main
Dim words() As String = {"This", "this", "Is", "is", "A", "a"}
Dim sortedWords = From word In words _
Order By word.Length, word Descending
For Each d In sortedWords
Console.WriteLine(d)
Next
End Sub
End Class