UWSCで代入した値の中にある指定キーワードの数を数える方法

わかりづらいタイトルですみません。エクセルの表の１セルの中に入っているハイフンの数を知りたくて書きました。あまり使う機会がないかもしれませんが、参考になれば幸いです。 [cc] EXCEL = XLOPEN()   for i = 2 to 商品総数       商品名 = XLGETDATA(Excel,"C"+i)      n = 1       cnt = 0         g = POS("-",商品名,n)//検索キーワード"-"が商品名の中にいくつあるか数える      While g > 0          g = POS("-",商品名,n)            cnt = cnt+1             n = n+1         wend        cnt = cnt-1     next [/cc] http://officetanaka.net/excel/vba/function/InStr.htmを参考にしました ちなみに僕もうMacに移行して1年以上経つんですが、未だにAppleScriptを始めとした Mac関連のScript・プログラミング言語を理解していないため、自動化するときだけ仮想環境のWin7を立ち上げて、UWSCでScriptを記述するということをやっております・・・ UWSCとっても良いのですが、いい加減MacのAppleScript覚えろ自分と思う今日この頃です＾＾；