Private Sub Command1_Click()
Dim objHTTP As Object
Dim URL As String
Dim requestData As String
 
URL = "http://192.168.1.21:3566/api/invoices"
Set objHTTP = CreateObject("MSXML2.XMLHTTP")

requestData = "{""invoiceRequest"": {""invoiceType"": ""Normal"", ""transactionType"": ""Sale"", ""buyerId"": ""111758195"", ""payment"": [{""amount"": 2.00, ""paymentType"": ""Cash""}], ""items"": [{""name"": ""Artikl 1"", ""labels"": [""F""], ""totalAmount"": 2.00, ""unitPrice"": 2.00, ""quantity"": 1.000}], ""cashier"": ""Radnik 1""}}"
    With objHTTP
        .Open "POST", URL, False
        .setRequestHeader "Authorization", "Bearer 0497e0bd2c7cf29820f46c19eb5842a3"
        .setRequestHeader "RequestId", "12345"
        .setRequestHeader "Content-Type", "application/json"
        .Send requestData
        Text = .responseText
    End With
    Debug.Print Text
MsgBox Text
End Sub