Imports System

Imports System.Collections.Generic

Imports Newtonsoft.Json

Public Module Module1

    Public Sub Main()

        Dim json As String =

                "[" +

                "  {" +

                "    ""PartnerID"": ""1""," +

                "    ""PartnerTitle"": ""TITLE1""," +

                "    ""PartnerStrapline"": ""STRAP1""," +

                "    ""PartnerData"": ""SOME INFO IN HERE""," +

                "    ""PartnerImage"": """"" +

                "  }," +

                "  {" +

                "    ""PartnerID"": ""2""," +

                "    ""PartnerTitle"": ""TITLE2""," +

                "    ""PartnerStrapline"": ""STRAP2""," +

                "    ""PartnerData"": ""SOME MORE INFO IN HERE""," +

                "    ""PartnerImage"": """"" +

                "  }," +

                "  {" +

                "    ""PartnerID"": ""3""," +

                "    ""PartnerTitle"": ""TITLE3""," +

                "    ""PartnerStrapline"": ""STRAP3""," +

                "    ""PartnerData"": ""MORE INFO""," +

                "    ""PartnerImage"": """"" +

                "  }" +

                "]"

​

        Dim data As List(Of oPartner) = JsonConvert.DeserializeObject(Of List(Of oPartner))(json)

​

        For Each partner As oPartner In data

            Console.WriteLine(partner.PartnerID)

            Console.WriteLine(partner.PartnerTitle)

            Console.WriteLine(partner.PartnerStrapline)

            Console.WriteLine(partner.PartnerData)

            Console.WriteLine()

        Next

​

    End Sub

    Public Class oPartner

        Public Property PartnerID() As String

        Public Property PartnerTitle() As String

        Public Property PartnerStrapline() As String

        Public Property PartnerData() As String

    End Class

End Module