Imports System

Public Module Module1

    Public Sub Main()

        Dim values As String = "aaa||bbb||ccc"

​

        ' Pass an ARRAY of strings that Split should use to split the string

        ' See: https://msdn.microsoft.com/en-us/library/tabh47cf(v=vs.110).aspx

        Dim splitValues As String() = values.Split(New String() {"||"}, StringSplitOptions.None)

        For Each val in splitValues

            Console.WriteLine(val)

        Next

​

    End Sub

End Module