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~"
        Dim pattern as String =".*?~([^~]+?)~"
        Dim re as Regex = New Regex(pattern)
 
        Dim mtch as match = re.Match(input)
        For Each grp as Group in mtch.Groups
            Console.Write("[{0}], {1}", grp.Value, grp.Captures.Count)
        Next
        Console.Writeline()
 
 
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKCgpQdWJsaWMgQ2xhc3MgVGVzdAoJUHVibGljIFNoYXJlZCBTdWIgTWFpbigpCgkJRGltIGlucHV0IGFzIFN0cmluZyA9IkFTRH5RV35ERkdIfkxPUH5HR0dIfjEyM35TWEN+UUx+IgogICAgICAgIERpbSBwYXR0ZXJuIGFzIFN0cmluZyA9Ii4qP34oW15+XSs/KX4iCiAgICAgICAgRGltIHJlIGFzIFJlZ2V4ID0gTmV3IFJlZ2V4KHBhdHRlcm4pCgogICAgICAgIERpbSBtdGNoIGFzIG1hdGNoID0gcmUuTWF0Y2goaW5wdXQpCiAgICAgICAgRm9yIEVhY2ggZ3JwIGFzIEdyb3VwIGluIG10Y2guR3JvdXBzCiAgICAgICAgICAgIENvbnNvbGUuV3JpdGUoIlt7MH1dLCB7MX0iLCBncnAuVmFsdWUsIGdycC5DYXB0dXJlcy5Db3VudCkKICAgICAgICBOZXh0CiAgICAgICAgQ29uc29sZS5Xcml0ZWxpbmUoKQoKCglFbmQgU3ViCkVuZCBDbGFzcw==