Imports System

Imports Newtonsoft.Json

Imports System.Collections.Generic

Public Class Module1

    Public Sub Main()

        Dim Json as string = "{Name: 'pepe', LastName: 'Arias'}"

        Dim Person as Person = JsonConvert.DeserializeObject(Of Person)(Json)

        Dim Persons as List(of Person) = new List(Of Person)

        Persons.Add(Person)

        Console.WriteLine(Persons.Count)

    End Sub

End Class

​

Public Class Person

​

    Private _Name As String

    Private _LastName As String

    Public Property Name() As String

        Get

            Return _Name

        End Get

        Set(ByVal value As String)

            _Name = value

        End Set

    End Property

    Public Property LastName() As String

        Get

            Return _LastName

        End Get

        Set(ByVal value As String)

            _LastName = value

        End Set

    End Property

End Class