vb与vb.net得到汉字ASC的函数,该怎么解决

vb与vb.net得到汉字ASC的函数
将vb写的函数改写成vb.net的函数，得到的结果不一样
vb的函数如下：
Private   Sub   PackBytes(ByteArray()   As   Byte,   ByVal   PostData   As   String)
Dim   iNewBytes   As   Integer
Dim   i   As   Integer,   j   As   Integer,   ch   As   String
Dim   strHex   As   String

        iNewBytes   =   LenB(StrConv(PostData,   vbFromUnicode))   -   1
        If   iNewBytes   <   0   Then   Exit   Sub
       
        ReDim   ByteArray(iNewBytes)   As   Byte
        For   i   =   0   To   Len(PostData)   -   1
                ch   =   Mid(PostData,   i   +   1,   1)
                If   ch   =   " "   Then
                        ch   =   "+ "
                        ByteArray(j)   =   Asc(ch)
                ElseIf   Asc(ch)   <   0   Then
                        ByteArray(j)   =   CByte( "&H "   &   Left(Hex(Asc(ch)),   2))
                        j   =   j   +   1
                        ByteArray(j)   =   CByte( "&H "   &   Right(Hex(Asc(ch)),   2))
                Else
                        ByteArray(j)   =   Asc(ch)
                End   If
                j   =   j   +   1
        Next
End   Sub

vb.net的函数如下：
Private   Sub   PackBytes(ByVal   ByteArray()   As   Byte,   ByVal   PostData   As   String)
                Dim   iNewBytes   As   Integer
                Dim   i   As   Integer,   j   As   Integer,   ch   As   String
                'Dim   strHex   As   String

                iNewBytes   =   System.Text.Encoding.Default.GetBytes(PostData).Length   -   1
                If   iNewBytes   <   0   Then   Exit   Sub

                ReDim   ByteArray(iNewBytes)
                For   i   =   0   To   Len(PostData)   -   1
                        ch   =   Mid(PostData,   i   +   1,   1)
                        If   ch   =   " "   Then