Dim Values As List
Dim Buffer As String
Values.Initialize
Line = QUOTE & "Company1" & QUOTE & ";" & QUOTE & "Product2" & QUOTE 'This is just a sample.
Values = Regex.Split(";", Line)
For I = 0 To Values.Size - 1
Buffer = Values.Get(I)
Buffer = Buffer.Replace(QUOTE, "")
Msgbox(Buffer, "")
Next