Как использовать "" в JSON / VBA вместо нуля

Question

При форматировании Json мы обязаны не показывать ноль (но «“) для любого элемента управления, имеющего пустое значение, как мы можем заархивировать его с помощью кода VBA:

Private Sub CmdConertJson_Click()
  On Error GoTo Err_Handler
  Dim db As DAO.Database
  Dim rs As DAO.Recordset
  Dim fld As DAO.Field
  Dim qdf As DAO.QueryDef
  Dim prm As DAO.Parameter
  Dim root As Dictionary
  Set root = New Dictionary
    Dim transaction As Dictionary
    Dim transactions As Collection
    Dim item As Dictionary
    Dim items As Collection
    Dim Tax As Collection
    Dim Z As Integer
    Dim i As Long
    Dim j As Long
    Dim t As Long
    Set transactions = New Collection
  Set db = CurrentDb
  Set qdf = db.QueryDefs("QryJson")
For Each prm In qdf.Parameters
    prm = Eval(prm.Name)
Next prm
Set rs = qdf.OpenRecordset(dbOpenSnapshot, dbSeeChanges)

Set qdf = Nothing
 rs.MoveFirst
    Do While Not rs.EOF
        Set transaction = New Dictionary
        transaction.Add "BuyerName", Me.BuyerName
        transaction.Add "BuyerTaxAccountName", Me.BuyerTaxAccountName

Например, если я .BuyerName имеет ПУСТО, json должно показывать «НЕ НУЛЬ

“BuyerName”, “ ”
“BuyerTaxAccountName”,” ”