Data Structure VB.Net

Imports System
Imports System.Collections.Generic
Public Class ReverseComparer
    Implements IComparer(Of String)
    Public Function Compare(ByVal x As String, _
        ByVal y As String) As Integer _
        Implements IComparer(Of String).Compare
        ' Compare y and x in reverse order.
        Return y.CompareTo(x)
    End Function
End Class
Public Class Example
    Public Shared Sub Main()
        Dim numbers() As String = {"Ten","Two","One","Three","Four","Nine"  }
        For Each num As String In numbers
            Console.WriteLine(num)
        Next
        Dim rc As New ReverseComparer()
        Array.Sort(numbers, rc)
        For Each num As String In numbers
            Console.WriteLine(num)
        Next
        Dim index As Integer = Array.BinarySearch(numbers, "One", rc)
        Console.WriteLine(index)
    End Sub
End Class