如何使string判斷word是中文(2byte)或英文(1byte)?(編號：7095)

我要一變數是個變數相加取12位,但中英文參雜
若硬要取12位則,中文可能切一半,請問要如何解決?
ex:
a1="北縣"
a2="中山路1號"
a3 = StrConv(LeftB(StrConv(Trim(a1), vbFromUnicode) & StrConv(Trim(a2), vbFromUnicode), 12), vbUnicode)
以上的例子:我想要的結果是:只要取11位就好,不要把中文字切斷
所以為:a3="北縣中山路1"
Thanks!