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
