Imports System
Public Class Program
    Public Shared Sub Main(ByVal args As String())
        Dim str As String = "java,c,c++,python,vb"
        
        Dim stringArray As String() = str.Split(","c)
        
        For Each s As String In stringArray
            Console.WriteLine(s)
        Next
    End Sub
End Class
  
  
' run:
'
' java
' c
' c++
' python
' vb
'