Olá!

No VFP6 não tem o StrExtract, segue abaixo código para o VFP6.

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)
EndDo

Até mais.