functionCountStr(str1,str2) dimtmp,i,j ifstr1=""orisnull(str1)then j=0 elseifstr2=""orisnull(str2)then j=1 else tmp=split(str1,str2) j=0 fori=0toubound(tmp) iftmp(i)<>""thenj=j+1 next endif countstr=j endfunction
