Data Structure VB.Net

Imports System
Imports System.Collections.Generic
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
        Array.Sort(numbers)
        For Each num As String In numbers
            Console.WriteLine(num)
        Next
        Dim index As Integer = Array.BinarySearch(numbers, "Four")
        Console.WriteLine(index)
        index = Array.BinarySearch(numbers, "One")
        Console.WriteLine(index)
    End Sub
End Class