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