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