dim s1 as string,s3 as stringdim bArr() as bytes1="中英Mixed"bArr = StrConv(s1, vbFromUnicode)s3 = StrConv(bArr, vbUnicode)