Imports System
Imports System.Linq
Public Module Module1
Public Sub Main()
Dim array() As Integer = {3, 5, 9, 1, 7, 8, 1, 9, 0, 3, 9}
Dim dist = From n In array
Group By n Into Group, Count()
Where Count = 1
Select n
Order By n
Console.WriteLine(String.Join(",", dist))
End Sub
End Module
' run:
'
' 0,5,7,8
'