>MyString = "Option 1;Option 2;Option3" >for i = 1 to WordCount(MyString, ",") > ? WordNum(MyString, i, ",") >next >Try this:
FUNCTION ParmCnt * Return the number of parameters in a list * expC1 Parameter list * expC2 Delimiter (default is the comma) PARAMETER tcParms,tcDelimiter LOCAL lcDelimiter IF TYPE('tcDelimiter')<>'C' lcDelimiter=',' ELSE lcDelimiter=tcDelimiter ENDIF RETURN IIF(EMPTY(tcParms),0,OCCURS(lcDelimiter,tcParms)+1)