用SOCKET编程,Unicode转换有关问题

用SOCKET编程,Unicode转换问题
Dim   Var(1)   As   Byte
                Dim   v()   As   Byte
                Dim   i   As   Integer
                Var(0)   =   238
                Var(1)   =   1
                Te.Text   =   System.Text.UnicodeEncoding.Default.GetString(Var)
                v   =   System.Text.UnicodeEncoding.Default.GetBytes(Te.Text)
                Tx.Text   =   " "
                For   i   =   LBound(v)   To   UBound(v)
                        Tx.Text   =   Tx.Text   &   v(i)   &   "   "
                Next
用System.Text.UnicodeEncoding.UTF8处理数据时只显示小于128的数据
而用上面的转换时超过128转换的数据就错误了，请高手指点

------解决方案--------------------
这个问题应该是由UTF-8编码的特点造成的。
UTF-8是一种变长字节编码方式。对于某一个字符的UTF-8编码，如果只有一个字节则其最高二进制位为0；如果是多字节，其第一个字节从最高位开始，连续的二进制位值为1的个数决定了其编码的位数，其余各字节均以10开头。UTF-8最多可用到6个字节。
如表：
1字节 0xxxxxxx
2字节 110xxxxx 10xxxxxx
3字节 1110xxxx 10xxxxxx 10xxxxxx
4字节 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
5字节 111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx
6字节 1111110x 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx
由于头两位被占用,每一字节能表示的编码一定小于127
------解决方案--------------------
Encoding.UTF8.GetByte
Encoding.UTF8.GetString
Default是取当前操作系统的。
有可能根据操作系统的不同，有不同显示
------解决方案--------------------
关注
------解决方案--------------------
你不如想办法把你发送的信息全部编码成数字发送，接收后在解码
------解决方案--------------------
mark