vb.net(2010)でリクエスト(JSON)を送信する

※肝は漢字のデータ　　ずっとこれが原因でエラー(400)がでていた
1. JOSNデータをシリアライズ化
2. その結果をエンコード
3. WebClientのUploadDataを使ってJSONをリクエスト送信する

リクエスト側（クライアント）

    Imports System.ServiceModel.Channels
    Imports System.Net
    Imports System.Collections.Generic
    Imports System.Runtime.Serialization.Json
    Imports System.Runtime.InteropServices
    Imports System.Security.Cryptography.X509Certificates
    Imports System.Text
    Imports System.IO
    Imports System.ServiceModel.Web
    Private Function RequestToPz3(ByRef json As RequestJson3) As String
        '--- 文字コードを指定する
        Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("UTF-8")
        '--- WebClientクラスの定義
        Dim wc As New System.Net.WebClient
        '--- ヘッダ（Content-Type）
        wc.Headers.Add("Content-Type", "application/json; charset=utf-8")
        Dim eMsg As String = ""
        Try
            Dim result As String
            Using stream As New IO.MemoryStream
                '---    シリアライズ実行
                Dim serializer As New DataContractJsonSerializer(json.GetType)
                serializer.WriteObject(stream, json)
                '---    結果を取得
                result = System.Text.Encoding.UTF8.GetString(stream.ToArray())
            End Using
            '*****  データを送信し、結果を受信する *****
            reqCount = reqCount + 1
            Dim resData As Byte()
            Try
                '---    これで漢字も送れた
                Dim postDataBytes2 As Byte() = enc.GetBytes(result)
                resData = wc.UploadData(tmpRequestUrl, postDataBytes2)      '成功
            Catch ex As Exception
            End Try
            wc.Dispose()
            '受信した結果(JSONデータ)を表示する
            Dim resText As String = enc.GetString(resData)
            Console.WriteLine(resText)
        Catch e As WebException
            ' 予期せぬエラー
        Catch e As System.Exception
        End Try
        Return eMsg
    End Function

受取側（コントローラ）

    Option Strict On
    Imports System.ServiceModel
    Imports System.ServiceModel.Activation
    Imports System.ServiceModel.Web
    Imports System.Runtime.Serialization
    Imports System.Collections.Generic
    Imports System.Net
    Imports System.ServiceModel.Channels
    Imports System.Text

    '*******************************************************************************************************
    '   処理概要：コントローラー
    '*******************************************************************************************************
    <ServiceContract(namespace:="http://aaaaaaa/bbb/api/assets/")>
    <AspNetCompatibilityRequirements(RequirementsMode:=AspNetCompatibilityRequirementsMode.Allowed)>
    Public Class ss09030r

        Inherits System.Web.UI.Page
        Private Const X_REQUEST_ID = "X-request-id"
        '--------------------------------------------------------------------
        '   reportコントローラー ここでリクエストを受取る
        '--------------------------------------------------------------------
        <OperationContract(), WebInvoke()>
        Public Function report(req As RequestJson3) As RequestJson3
            Dim RequestHeaders = WebOperationContext.Current.IncomingRequest.Headers        '   リクエストヘッダー
            Return req
        End Function
    End Class