Imports System
Imports System.Text.RegularExpressions
 
 
Public Class Test
	Public Shared Sub Main()
        Dim input As String = "ASD~QW~DFGH~LOP~GGGH~123~SXC~QL~"
 
        Print(Split("asd"))
        Print(Split("asd~"))
        Print(Split("ASD~QW~DFGH~LOP~GGGH~123~SXC~QL~"))
        Print(Split("ASD~QW~DFGH~LOP~GGGH~123~SXC~QL~jones"))
        Console.WriteLine("....bye")
    End Sub
    Public Shared Sub Print(words As List(Of String))
        Console.WriteLine("Found {0} words", words.Count)
        For Each Val As String In words
            Console.Write(" [{0}]", Val)
        Next
        Console.WriteLine()
 
    End Sub
    Public Shared Function Split(input As String) As List(Of String)
        Dim results = New List(Of String)
 
        Dim pattern As String = ".*?~([^~]+?)(?=~)"
        Dim re As Regex = New Regex(pattern)
 
        For Each mtch As Match In re.Matches(input)
            results.Add(mtch.Groups(1).Captures(0).Value)
        Next
        Return results
    End Function
End Class

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKCgpQdWJsaWMgQ2xhc3MgVGVzdAoJUHVibGljIFNoYXJlZCBTdWIgTWFpbigpCiAgICAgICAgRGltIGlucHV0IEFzIFN0cmluZyA9ICJBU0R+UVd+REZHSH5MT1B+R0dHSH4xMjN+U1hDflFMfiIKCiAgICAgICAgUHJpbnQoU3BsaXQoImFzZCIpKQogICAgICAgIFByaW50KFNwbGl0KCJhc2R+IikpCiAgICAgICAgUHJpbnQoU3BsaXQoIkFTRH5RV35ERkdIfkxPUH5HR0dIfjEyM35TWEN+UUx+IikpCiAgICAgICAgUHJpbnQoU3BsaXQoIkFTRH5RV35ERkdIfkxPUH5HR0dIfjEyM35TWEN+UUx+am9uZXMiKSkKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgiLi4uLmJ5ZSIpCiAgICBFbmQgU3ViCiAgICBQdWJsaWMgU2hhcmVkIFN1YiBQcmludCh3b3JkcyBBcyBMaXN0KE9mIFN0cmluZykpCiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoIkZvdW5kIHswfSB3b3JkcyIsIHdvcmRzLkNvdW50KQogICAgICAgIEZvciBFYWNoIFZhbCBBcyBTdHJpbmcgSW4gd29yZHMKICAgICAgICAgICAgQ29uc29sZS5Xcml0ZSgiIFt7MH1dIiwgVmFsKQogICAgICAgIE5leHQKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgpCgogICAgRW5kIFN1YgogICAgUHVibGljIFNoYXJlZCBGdW5jdGlvbiBTcGxpdChpbnB1dCBBcyBTdHJpbmcpIEFzIExpc3QoT2YgU3RyaW5nKQogICAgICAgIERpbSByZXN1bHRzID0gTmV3IExpc3QoT2YgU3RyaW5nKQoKICAgICAgICBEaW0gcGF0dGVybiBBcyBTdHJpbmcgPSAiLio/fihbXn5dKz8pKD89fikiCiAgICAgICAgRGltIHJlIEFzIFJlZ2V4ID0gTmV3IFJlZ2V4KHBhdHRlcm4pCgogICAgICAgIEZvciBFYWNoIG10Y2ggQXMgTWF0Y2ggSW4gcmUuTWF0Y2hlcyhpbnB1dCkKICAgICAgICAgICAgcmVzdWx0cy5BZGQobXRjaC5Hcm91cHMoMSkuQ2FwdHVyZXMoMCkuVmFsdWUpCiAgICAgICAgTmV4dAogICAgICAgIFJldHVybiByZXN1bHRzCiAgICBFbmQgRnVuY3Rpb24KRW5kIENsYXNz