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
'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