在中文环境下每个字被当做两个 :

len(\"汉1\") = 2
lenb(\"汉1\") = 4

但在许多情况下我们希望中文字长度为 2英文为 1可用以下:

lenb(strconv(\"汉1\", vbformunicode))

(此思路方法不能用于vb6.0)