> これですと、｛｝の間にカンマ（,）がついておりません。 それは For ループで For i = 0 To 2 sw.WriteObject(ms, data(i)) Next という出力方法をとっているからですよね。
Array を丸ごと渡しましょう。
Dim data() As Shohin = { New Shohin With {.商品C = 10000, .商品名 = "商品A"}, New Shohin With {.商品C = 10001, .商品名 = "商品B"}, New Shohin With {.商品C = 10002, .商品名 = "商品C"} } Dim serializer As New DataContractJsonSerializer(GetType(Shohin())) Dim ms As New MemoryStream() serializer.WriteObject(ms, data) TextBox1.Text = System.Text.Encoding.UTF8.GetString(ms.ToArray())
