Imports System

Imports System.Collections.Generic

Imports Newtonsoft.Json

Public Module Module1

    Public Sub Main()

        ' escaping the quotes because dotnetfiddle does not allow for string interpolation

        Dim literal = "{ ""Name1"": ""Value1"", ""Name2"": ""Value2"", ""Array1"":[ ""a"", ""b"", ""c"", ""d""] }"

        Dim parsedText = Test.ParseJson(literal)

        Console.WriteLine(parsedText.Name1)

    End Sub

End Module

​

Public Class Test

    Public Property Name1 As String

    Public Property Name2 As String

    Public Property Array1 As IEnumerable(Of String)

​

    Public Shared Function ParseJson(literal As String)

        Return JsonConvert.DeserializeObject(Of Test)(literal)

    End Function

End Class