vb .net json 처리

{
"rtncode":"200",
"msg":"성공",
"data":[
{
"no":"56525",
"section":"1",
"category":"88",
"subject":"복지부, "지자체 사회보장제도 동의 비율 증가""
},
{
"no":"56524",
"section":"1",
"category":"88",
"subject":"양천구,"소리 없이 찾아오는 ‘뼈 도둑’, 조기검진 필수""
},
{
"no":"56523",
"section":"1",
"category":"88",
"subject":"수입 미국산 밀과 밀가루에서 미승인 유전자변형 밀 불검출"
},
{
"no":"56520",
"section":"1",
"category":"88",
"subject":"서울특별시동부병원, ‘아트앤프렌즈展’ 전시회 개최"
}
]
}

이런 json 처리 과정

install-package Newtonsoft.json -> 비주얼스튜디오->도구->패키지 관리자->패키지 콘솔에서 설치

imports 추가

Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq

처리 내용 아래 과정

Else
   Try
            Dim wresp As WebResponse
            Dim wreq As WebRequest = HttpWebRequest.Create("http://www.test.com/api/new_api.com")
            Dim str As String = ""
            wresp = wreq.GetResponse()

            Using sr As New StreamReader(wresp.GetResponseStream())
                str = sr.ReadToEnd()
                sr.Close()
            End Using


            Dim jsonstring As String = str
            Dim json_results As New System.Net.Json.JsonTextParser
            Dim j_result As System.Net.Json.JsonObjectCollection
            Dim ser As JObject = JObject.Parse(jsonstring)


            j_result = json_results.Parse(jsonstring)
            Dim jj_string As String = j_result("data").ToString
            Dim data As List(Of JToken) = ser.Children().ToList
            Dim output As String = ""

            For Each item As JProperty In data
                item.CreateReader()
                Select Case item.Name
                    Case "data"

                        For Each comment As JObject In item.Values
                            Dim news_no As String = comment("no")
                            Dim news_subject As String = comment("subject")
                            Dim news_category As String = comment("category")
                            Dim news_section As String = comment("section")

                            ListBox1.Items.Add("· " & news_subject)
                            output = "/news/view.html?section=" & news_section & "&category=" & news_category & "&no=" & news_no
                            news_list_link.Add(output)

                        Next

                End Select
            Next

        Catch ex As Exception
            MsgBox(ex.Message, "가져오기 실패")
        End Try
End If