Imports System

Imports System.Collections.Generic

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Public Module Module1

    Public Sub Main()

        Dim workspace = "test" ' not sure what this is

        Dim request = New With {

            .data = New With {

                .workspace = workspace,

                .name = "Complex task test",

                .notes = "These are task notes",

                .projects = {"1202219487026592"},

                .custom_fields = New Dictionary(Of UInt64, String) From {

                    { 21234515112, "222" }

                }

            }

        }

​

        Dim serializedJson = JsonConvert.SerializeObject(request)

        Console.WriteLine(serializedJson)

    End Sub

End Module