Dim line As String
line = Rd1.ReadLine
Do While line <> Null AND line <> ""
Dim lstA,LstB As List
lstA.Initialize
LstB.Initialize
Dim str() As String
str = Regex.Split(",", line)
lstA.Add(str(0))
LstB.Add(str(1))
line = Rd1.ReadLine
Loop
Rd1.Close
ProductList.AddAllAt(0,lstA)
PriceList.AddAllAt(0,LstB)