sp判断中西混字符串长度

==============================
函 数 名：StringLength
作 用：判断字符串长度
参 数：需进行判断的文本Txt
==============================
Private Function StringLength(Txt)
Txt=Trim(Txt)
x=Len(Txt)
y=0
For ii = 1 To x
If Asc(Mid(Txt,ii,1))<=2 or Asc(Mid(Txt,ii,1))>255 Then
y=y + 2
Else
y=y + 1
End If
Next
StringLength=y
End Function