文字数の取得方法(Active Basic 4)

質問

タイトルのとおりです。
Active Basicを使ってプログラミングをしているのですが、どうしても文字数の取得方法がわかりません。

命令文「Len()」を使えば文字列の「Byte」はわかりますが、文字数が取得できません。

何か良い方法はありますか？

(Active Basic 参考プログラム)
Dim Str$ As String

Str$ = "abc"　　　　'３文字　計３バイト
Print Len(Str$) 　　'「３」が表示されます

Str$ = "やほ～" 　　'３文字　計６バイト
Print Len(Str$) 　　'「６」が表示されます

回答No.1

koma1000nin

Len$()は文字列のバイト数を求める関数なので、全角の文字数を求める関数を探せば解決します。
Len$(Str$)-Zzz$(Str$)
が全角・半角あわせた文字数になります。
ここに、Zzz$(Str$)は文字列Str$内の全角文字数を返す関数と仮定しています。捜せば存在するのではないでしょうか？
ちなみに、Tcl/Tkというプログラミング言語には全角文字数を返す関数があります。

お礼

全角文字列を取得する関数は無いです。
でも、ちょっと別の方法を思いつきました。

回答ありがとうございました。