Imports System
Imports System.Linq
Public Class Program
Public Shared Sub Main()
Dim s As String = "vb.net cpp vb.net java c python VB.net c cpp php java"
Dim words = s.Split()
Dim unqiueWordsCount As Integer = words.Distinct().Count()
Console.WriteLine(unqiueWordsCount)
End Sub
End Class
' run:
'
' 7
'