Function CountWidth(str)
dim i
dim strlen
dim strtemp
i=len(str)
strlen=len(str)
strtemp=str
if len("许褚")=2 then
do while i>0
if asc(strtemp) < 0 or asc(strtemp) > 127 then
strlen=strlen+1
end if
i=i-1
strtemp=right(strtemp,i)
loop
end if
CountWidth=strlen
End Function