Imports System

Imports Newtonsoft.Json

​

​

' Definieer een klasse die overeenkomt met je JSON-structuur

Public Class MyJsonBody

    Public Property loid As String

    Public Property status As String

    Public Property comment As String

End Class

​

​

Public Module Program

    Public Sub Main()

        ' Maak een instantie van je klasse

        Dim myData As New MyJsonBody With {

            .loid = "JouwLoidWaarde",

            .status = "JouwStatusWaarde",

            .comment = "JouwCommentaar"

        }

​

        ' Converteer het object naar een JSON-string

        Dim jsonString As String = JsonConvert.SerializeObject(myData)

​

            ' Nu kun je jsonString gebruiken als je JSON body

            Console.WriteLine(jsonString)

    End Sub

​

End Module

​