Imports System

Imports Newtonsoft

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Public Module Module1

    Public Sub Main()

        Dim myVariable = "VARIABLEINSTEREDHERE"

        Dim request = New JObject()

        request.Add("StoreId", 12345)

        request.Add("TerminalId", 12345)

        request.Add("CaptureMode", True)

        request.Add("MerchantReferenceCode", myVariable)

        request.Add("InvoiceNumber", 12345)

        request.Add("TimeoutMinutes", 5)

        request.Add("ShowAddress", True)

        request.Add("AddressRequired", True)

        request.Add("TransactionTotal", 33.33)

        request.Add("TaxTotal", 2.00) ' taxation is theft

        request.Add("CustomerCode", 12345)

​

        Dim myJson = request.ToString()

        Console.WriteLine(myJson)

    End Sub

End Module