在VB6和VB.NET下分别获取汉字的字节

一、VB6下的实现：

    Dim str1 As String
    Dim str2 As String
    str = "汉"                                             '双字节串
    Dim array() As Byte                             '字节数组
    arr = StrConv(str1, vbFromUnicode)   '去除多余字节放入数组中
    str2 = StrConv(array, vbUnicode)        '转回来

二、VB.NET下实现：

        Dim str As String = "汉"
        Dim array() As Byte

        array= System.Text.Encoding.Default.GetBytes(str)