Dim objHttp As Object
Dim strResponse As String
Dim strUrl As String
Dim strData As String
    
' Deben cambiar los datos de "params" por los que correspondan. 
' Esta request de ejemplo incluye todos posibles valores para 
' llamar al metodo emitir, puede que algun valor sea opcional.
Dim dictData As Dictionary
Set dictData = New Dictionary
    dictData.Add "environment", "dev"
    dictData.Add "method", "emitir"
    dictData.Add "wsid", "sire-ws"
    Dim params As Dictionary
    Set params = New Dictionary
    dictData.Add "params", params
        params.Add "token", "string"
        params.Add "sign", "string"
        params.Add "cuitAgente", 1
        Dim certificado As Dictionary
        Set certificado = New Dictionary
        params.Add "certificado", certificado
            certificado.Add "version", 1
            certificado.Add "codigoTrazabilidad", "string"
            certificado.Add "impuesto", 1
            certificado.Add "regimen", 1
            certificado.Add "fechaRetencion", "YYYY-MM-DDThh:mm:ss"
            certificado.Add "condicion", 1
            certificado.Add "imposibilidadRetencion", True
            certificado.Add "motivoNoRetencion", "string"
            certificado.Add "importeRetencion", 1.5
            certificado.Add "importeBaseCalculo", 1.5
            certificado.Add "regimenExclusion", True
            certificado.Add "porcentajeExclusion", 1.5
            certificado.Add "fechaPublicacion", "YYYY-MM-DDThh:mm:ss"
            certificado.Add "tipoComprobante", 1
            certificado.Add "fechaComprobante", "YYYY-MM-DDThh:mm:ss"
            certificado.Add "numeroComprobante", "string"
            certificado.Add "coe", "string"
            certificado.Add "coeOriginal", "string"
            certificado.Add "cae", "string"
            certificado.Add "importeComprobante", 1.5
            certificado.Add "motivoEmisionNotaCredito", "string"
            certificado.Add "cuitRetenido", 1
            certificado.Add "numeroCertificadoOriginal", "string"
            certificado.Add "fechaRetencionCertificadoOriginal", "YYYY-MM-DDThh:mm:ss"
            certificado.Add "importeCertificadoOriginal", 1.5
            certificado.Add "motivoAnulacion", 1

' Convertimos el objeto en JSON
strData = JsonConverter.ConvertToJson(dictData, Whitespace:=2)

' Creamos un cliente HTTP para llamar a la API
Set objHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
strUrl = "https://app.afipsdk.com/api/v1/afip/requests"

' Reemplazar con tu access_token obtenido de https://app.afipsdk.com
Dim accessToken As String
accessToken = "TU_TOKEN_AQUI"
objHttp.AddRequestHeader("Authorization", "Bearer " + accessToken)

' Realizamos la llamada a la API
With objHttp
    .Open "POST", strUrl, False
    .setRequestHeader "Content-Type", "application/json"
    .Send strData
    ' En caso de error lo mostramos por pantalla
    If .Status <> 200 Then
        MsgBox .responseText
        Exit Sub
    End If

    strResponse = .responseText
End With

' Convertimos la respuesta en un objeto
Set objJson = JsonConverter.ParseJson(strResponse)

' Mostramos la respuesta por pantalla
Debug.Print JsonConverter.ConvertToJson(objJson, Whitespace:=2)