VeriFactu en VB6 y VBA

' VB6 / VBA — MSXML2.ServerXMLHTTP
' Sirve igual en Access, Excel y aplicaciones de escritorio
' que llevan veinte años facturando y no se van a reescribir.

Public Function VfRegistrar(json As String) As String
    Dim http As Object
    Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")

    http.Open "POST", "https://api.verifactu.co/v1/registros", False
    http.setRequestHeader "Authorization", "Bearer " & VF_CLAVE
    http.setRequestHeader "Content-Type", "application/json"

    ' Sin esto, un reintento del usuario duplica el registro
    http.setRequestHeader "Idempotency-Key", NumeroFactura

    ' TLS 1.2: en equipos antiguos hay que forzarlo o falla
    ' la conexión sin un error que se entienda.
    http.setOption 2, 13056

    http.send json

    If http.Status >= 400 Then
        Err.Raise vbObjectError + 1, "VfRegistrar", http.responseText
    End If

    VfRegistrar = http.responseText
End Function