VBScript計算中英文混合字串的長度

用VBScript的Len函數，計算字串的長度，一個ASCII字元長度是1，但一個中文字的長度還是算1，自訂一個函數讓ASCII字元算1，中文字算2：

Function LenAB(strLen)
           dim i,n
           n=0
           for i = 1 to Len(strLen)
                     if asc(mid(strLen,i,1)) >=0 and asc(mid(strLen,i,1)) <= 255 then
                                n = n + 1
                     else
                                n = n + 2
                     end if
           next
           LenAB = n
End Function