Private Sub Done_Click
Dim myitems() As String
Dim l As List
l.initialize
myitems = SplitText(ShipList.text,CRLF)
'Dim Row() As Object = Array (SplitText(myitems(0),","))
For n=0 To myitems.length-1
Dim datoslista() As String
datoslista = SplitText(myitems(n),",") 'validar si solo queda un elemento, marcara error
Dim Row() As Object = Array (datoslista(0),datoslista(1))
'Dim Row() As Object = Array (myitems(0),myitems(1))
l.Add(Row)
Next
' MsgboxAsync( Item,"test")
'Tbl1.add (mylist)
'l.Add(myitems(1))
'Next
Tbl1.SetData(l)