Imports System

Imports Newtonsoft.Json

Public Module Module1

    Public Sub Main()

        ' assume you're using this instead of creating a new Payload manually

        ' Dim payloadObject = Await JsonSerializer.DeserializeAsync(Of Payload)(streamData)

        Dim payloadObject = New Payload() With {

            ._error = Nothing,

            .id = 94618807,

            .result = New Result() With {

                ._0xBTCBTC = New MarketStatus() With { .last = "0.00003401" },

                ._0xBTCETH = New MarketStatus() With { .last = "0.0004755" },

                ._0xCASHUSDT = New MarketStatus() With { .last = "0.000999" },

                ._1INCH1D3LUSDT = New MarketStatus() With { .last = "1.164" }

            }

        }

        For Each propertyInformation In GetType(Result).GetProperties()

            Dim status = DirectCast(propertyInformation.GetValue(payloadObject.result), MarketStatus)

            Console.WriteLine("{0}.last = {1}", propertyInformation.Name, status.last)

        Next

    End Sub

End Module

​

Public Class MarketStatus

    Public Property IsChange As Boolean

    Public Property period As Integer

    Public Property open As String

    Public Property last As String

    Public Property high As String

    Public Property low As String

    Public Property volume As String

    Public Property deal As String

    Public Property close As String

    Public Property base_volume As String

    Public Property quote_volume As String

End Class

​

Public Class Payload

    Public Property _error As Object

    Public Property result As Result

    Public Property id As Integer

End Class

​

Public Class Result

​

    ' <JsonPropertyName("0xBTCETH")> in System.Text.JSON

    <JsonProperty("0xBTCBTC")>

    Public Property _0xBTCBTC As MarketStatus

​

    ' <JsonPropertyName("0xBTCETH")> in System.Text.JSON

    <JsonProperty("0xBTCETH")>

    Public Property _0xBTCETH As MarketStatus

​

    ' <JsonPropertyName("0xCASHUSDT")> in System.Text.JSON

    <JsonProperty("0xCASHUSDT")>

    Public Property _0xCASHUSDT As MarketStatus

​

​

    ' <JsonPropertyName("1INCH1D3LUSDT")> in System.Text.JSON

    <JsonProperty("1INCH1D3LUSDT")>

    Public Property _1INCH1D3LUSDT As MarketStatus

​

    ' etc...

End Class

​