Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim s As String = "vb.net c c++ c# java "
Dim arr As String() = s.Split(New String() {" "}, StringSplitOptions.RemoveEmptyEntries)
For Each str As String In arr
Console.WriteLine(str)
Next
End Sub
End Class
' run:
'
' vb.net
' c
' c++
' c#
' java
'