Dim productArray()

For Each i In lines
	col = split(i,";")
	If Ubound(col) > 0 Then
		If isArray(col) Then
			productArray = col(1)
		End If
	End If
Next