精确获取字符字节数(汉字也适用)
Public Function StringLen(ByVal oString As String) As Integer
Dim strArray() As Byte
Dim Strlen As Integer
Dim MyEncoder As Encoding = Encoding.Default
strArray = MyEncoder.GetBytes(oString)
Strlen = strArray.Length
Return Strlen
End Function