Dim ba() As Byte = System.Text.Encoding.Default.GetBytes("中国人民")
ReDim Preserve ba(4)
If ba(ba.Length - 1) > 128 Then '我忘记中文是从多少开始了,暂且当它是从129开始吧
ba(ba.Length - 1) = Asc(".") '用“.”代替那半个中文的位置
End If
dim s as string =System.Text.Encoding.Default.GetString(ba)
s = s & "abc"
msgbox(s)