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