Module Module1
Sub Main()
Dim s As String = "vb, c# c,, c++: java."
Dim sep() As Char = {",", " ", ":", "."}
Dim words As String() = s.Split(sep)
For Each s In words
If (s <> "") Then
Console.WriteLine(s)
End If
Next s
End Sub
End Module
' run:
'
' vb
' c#
' c
' c++
' java