Clear
lcString = "18,21,33,45,150,999,"
DO while Len(lcString) > 0
  ?StrExtract(lcString, "", ",")
  lcString = Substr(lcString, At(",", lcString) + 1)
EndDo