Is that in one of your called scripts? If not you will need to add this to either one of your called scripts or add it to your current script.

 Code:
function IofSubStr($Str,$Find,$Start)
 dim $
 $=split(substr($Str,$Start),$Find)
 $IofSubStr=iif(0=ubound($),0,len($[0])+$Start)
endfunction
_________________________
Today is the tomorrow you worried about yesterday.