Imports System.Text.RegularExpressions
Module Module1
Sub Main()
Dim s As String = "VB.NET *Java Python, PHP! C++!"
Dim arr As String() = Regex.Split(s, "\W+")
For Each word As String In arr
Console.WriteLine(word)
Next
End Sub
End Module
' run:
'
' VB
' NET
' Java
' Python
' PHP
' C