Imports System
Imports System.Text.RegularExpressions
Public Module Module1
Private Function SplitByPunctuation(ByVal s As String) As String()
Return Regex.Split(s, "\W+")
End Function
Public Sub Main()
Dim s As String = "vb.net, desktop .software$ programming!"
Dim arr As String() = SplitByPunctuation(s)
For Each element As String In arr
Console.WriteLine(element)
Next
End Sub
End Module
' run:
'
' vb
' net
' desktop
' software
' programming
'