Remove duplicate entries from string array

Dim Names() As String = {"Bob", "Mary", "bob", "Bob", "Jane", "Kevin", "Jane"}
Names = Names.RemoveDuplicates
For Each Name As String In Names
    Console.WriteLine(Name)
Next

bob
Bob
Jane
Kevin
Mary

<System.Diagnostics.DebuggerStepThrough()> _
<System.Runtime.CompilerServices.Extension()> _
Public Function RemoveDuplicates(ByVal sender As String()) As String()
    Return (From value In sender Select value Distinct Order By value).ToArray
End Function