VBA: Funcion para formatear un JSON String para la linea de comandos.

Function escapeQuotes(quotedString As String) As String
    'agrega un escape a las comillas para que sea aceptado por la linea de comandos
    'convierte {"key":"value"} en "{\"key\":\"value\"}"
   
    escQuotes = Replace(quotedString, Chr(34), "\" & Chr(34))
    escapeQuotes = Chr(34) & escQuotes & Chr(34)
   
End Function