Option Strict On

Imports System

Imports System.Linq

Public Module Module1

    Public Sub Main()

        'Create a collection that has multiple duplicate values

        Dim nonunique() As String = {"David", "David", "Michael", "Stephen", "David"}

​

        'Iterate through all unique value in the collection

        For Each value As String In nonunique.Distinct()

            'Print the value

            Console.WriteLine(value)

        Next

    End Sub

End Module