Imports System.Text.RegularExpressions
Module Module1
Sub Main()
Dim s As String = "VB.NET c c++ Java Python php"
Dim arr() As String = Regex.Split(s, "\W")
Dim list As New List(Of String)
For Each word In arr
If (Not String.IsNullOrEmpty(word)) Then
If (Char.IsUpper(word(0))) Then
list.Add(word)
End If
End If
Next
For Each w In list
Console.WriteLine(w)
Next
End Sub
End Module
' run:
'
' VB
' NET
' Java
' Python