Module Module1
Sub Main()
Dim s As String = "Visual Basic .NET (VB.NET) is a multi-paradigm, object-oriented programming " + vbTab + "language. " + vbLf +
"implemented on the .NET Framework..."
Dim sp As String() = s.Split(New [Char]() {" "c, ","c, "."c, ":"c, "("c, ")"c, "-"c, CChar(vbTab), CChar(vbLf)})
For Each word As String In sp
If word.Trim() <> "" Then
Console.WriteLine(word)
End If
Next word
End Sub
End Module
' run:
'
' Visual
' Basic
' NET
' VB
' NET
' Is
' a
' multi
' paradigm
' Object
' oriented
' programming
' language
' implemented
' On
' the
' NET
' Framework