functioncountstr（str1、str2） dimtmp、i、j ifstr1 = "" orisnull（str1）then j = 0 elseifstr2 = "" orisnull（str2）then j = 1それ以外tmp = split（str1、str2） j = 0 fori = 0toubound（tmp） Iftmp（i）<> "" thenj = j+1次endif countStr = jエンド機能
