NoDuplicates

<System.Runtime.CompilerServices.Extension()> _
Public Function NoDuplicates(ByVal values As String()) As String()
    Return (From value In values Select value Distinct Order By value).ToArray
End Function
<System.Runtime.CompilerServices.Extension()> _
Public Function NoDuplicates(ByVal values As Integer()) As Integer()
    Return (From value In values Select value Distinct Order By value).ToArray
End Function

Dim Names As String() = New String() {"Bob", "Mary", "Jane", "Bob", "Joe", "Bill"}
Dim SingleNames As String() = Names.NoDuplicates

Array.ForEach(Of String)(Names, AddressOf Console.WriteLine)
Console.WriteLine()
Array.ForEach(Of String)(SingleNames, AddressOf Console.WriteLine)

Console.WriteLine("-----------------------")

Dim Numbers As Integer() = New Integer() {1, 2, 3, 4, 5, 5, 6, 7, 8, 8, 9}
Dim SingleNumbers As Integer() = Numbers.NoDuplicates
Array.ForEach(Of Integer)(Numbers, AddressOf Console.WriteLine)
Console.WriteLine()
Array.ForEach(Of Integer)(SingleNumbers, AddressOf Console.WriteLine)