Imports System
Imports System.Collections.Generic
Public Class Program
Public Shared Function makeset(ByVal str As String) As HashSet(Of Char)
Dim arr As Char() = str.ToCharArray()
Dim hset = New HashSet(Of Char)(arr)
Return hset
End Function
Public Shared Sub Main(ByVal args As String())
Dim str As String = "VB.NET Programming"
Console.WriteLine(String.Join(",", makeset(str)))
End Sub
End Class
' run:
'
' V,B,.,N,E,T, ,P,r,o,g,a,m,i,n
'