Data Types VB.Net

Imports System
Class Sample
    Public Shared Sub Main() 
        Dim s1 As String = "[stop]A[stop][stop]B[stop][stop][stop]C[stop][stop][stop][stop][stop][stop]"
        Dim stringSeparators() As String = {"[stop]"}
        Dim result As String() =  s1.Split(stringSeparators, StringSplitOptions.RemoveEmptyEntries)
        Show(result)
    End Sub 'Main
    Public Shared Sub Show(ByVal entries() As String) 
        Console.WriteLine(entries.Length)
        Dim entry As String
        For Each entry In  entries
            Console.WriteLine(entry)
        Next entry
    End Sub
End Class