Module Module1
Sub Main()
Dim s As String = "VB.NET,Java,,Python,,,,"
Dim arr() As String = s.Split(New Char() {","c}, StringSplitOptions.RemoveEmptyEntries)
For Each element As String In arr
Console.WriteLine(element)
Next
End Sub
End Module
' run:
'
' VB.NET
' Java
' Python