DESERIALIZE COM NEWTONSOFT.JSON VB.NET

  
Imports System.IO
Imports System.Net
Imports System.Net.Http
Imports System.Web
Imports EBM.cJson
Imports System.Web.Script.Serialization
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Linq
Imports System.Text


Public Class frmDoiSearch
    Dim sDOi As String = [Ô]http://api.crossref.org/works?filter=doi:[Ô]

    Private Async Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        Try
            Dim sStr As String = String.Empty
            Cursor = Cursors.WaitCursor
            txtResult.ResetText()

            Using client As New HttpClient()
                client.BaseAddress = New Uri(sDOi & txtTermo.Text)
                Dim response = Await client.GetAsync([Ô][Ô])
                Dim dados As String = Await response.Content.ReadAsStringAsync()
                Dim jss As New JavaScriptSerializer()
                Dim DadosRet As List(Of DadosDOI) = jss.Deserialize(Of List(Of DadosDOI))(dados)
                If response.IsSuccessStatusCode Then
                    MessageBox.Show(DadosRet.First().title)
                Else
                    MessageBox.Show([Ô]Erro - Status: [ô][Ô] & response.StatusCode.ToString & [Ô][ô] Erro: [ô][Ô] & response.ReasonPhrase.ToString & [Ô][ô]![Ô], sTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                End If
            End Using
        Catch ex As Exception
            ErrorView(ex)
        Finally
            Cursor = Cursors.Default
        End Try
    End Sub
End Class

Public Class Rootobject
    Public Property message As Message
End Class

Public Class Message
    Public Property items() As DadosDOI
End Class

Public Class DadosDOI
    Public Property indexed As Indexed
    Public Property referencecount As Integer
    Public Property publisher As String
    Public Property issue As String
    Public Property DOI As String
    Public Property type As String
    Public Property created As Created
    Public Property page As String
    Public Property source As String
    Public Property title() As String
    Public Property prefix As String
    Public Property volume As String
    Public Property author() As Author
    Public Property member As String
    Public Property publishedonline As PublishedOnline
    Public Property containertitle() As String
    Public Property deposited As Deposited
    Public Property score As Single
    Public Property subtitle() As Object
    Public Property issued As Issued
    Public Property alternativeid() As String
    Public Property URL As String
    Public Property ISSN() As String
End Class

Public Class Indexed
    Public Property dateparts() As Integer
    Public Property datetime As Date
    Public Property timestamp As Long
End Class

Public Class Created
    Public Property dateparts() As Integer
    Public Property datetime As Date
    Public Property timestamp As Long
End Class

Public Class PublishedOnline
    Public Property dateparts() As Integer
End Class

Public Class Deposited
    Public Property dateparts() As Integer
    Public Property datetime As Date
    Public Property timestamp As Long
End Class

Public Class Issued
    Public Property dateparts() As Integer
End Class

Public Class Author
    Public Property affiliation() As Object
    Public Property family As String
    Public Property given As String
End Class