Use the Split function.

Code:
Retval = Split(Text1, ",")

For I = 0 To UBound(Retval)
    Print Retval(I)
Next I