Clear Local lcString, lnPosVirg lcString = "18,21,33,45,150,999" ? lcString DO while Len(lcString) > 0 lnPosVirg = At(",", lcString) lnPosVirg = Iif(lnPosVirg = 0, Len(lcString) + 1, lnPosVirg) ? Int(Val(Substr(lcString, 1, lnPosVirg - 1))) lcString = Substr(lcString, lnPosVirg + 1) EndDoAté mais.