Dim s As String
s = "TA171/07-2046-1100-2046|TA172/02-890-890-890|TA174/04-930-930-930|TA174/05-461-461-461|TA177/02-521-521-521|TA178/02-1701-1701-1701|TA179/01-2866-221-2866|"
Dim Rows() As String
Rows = Regex.Split("[|]", s)
Dim Table As List
Table.Initialize
For i = 0 To Rows.Length - 1
Table.Add(Regex.Split("[-]", Rows(i)))
Next