Imports System

Imports Newtonsoft.Json

​

Public Module Module1

​

    Public Sub Main()

        Dim json as String = "{'Id':'8151302', 'Status':'Accepted', 'Response':'0', 'Price':'0.88', 'Detail':'https://api.test.com/Redirect/Index 3eae1b02'}"

        Dim deserialized = JsonConvert.DeserializeObject(of SandhurstData)(json)

        Console.WriteLine(deserialized)

    End Sub

​

    Public Class SandhurstData

        Public Id as String

        Public Status as String

        Public Response as String

        Public Price as Double

        Public Detail as String

​

        Public Overrides Function ToString() as String

            return String.Format("Id: {1} {0}Status: {2} {0}Response: {3} {0}Price: {4} {0}Detail: {5}", Environment.NewLine, Id, Status, Response, Price, Detail)

        End Function

    End Class

End Module

​