MiaStringa="23,45,46,12,89,87"
MioArray = Split (MiaStringa, ",")

p1 = MioArray(0)
p2 = MioArray(1)
p3 = MioArray(2)
p4 = MioArray(3)
p5 = MioArray(4)
p6 = MioArray(5)