Hola, tengo un string de JSON que devuelve mal en realidad y mete una doble comilla dentro de otra doble comilla, lo que quiero es saber como reemplazar la doble comilla, pero sin reemplazar las otras dobles comillas de las otras propiedades, por ejemplo lo que devuelve es esto:

{"accionObjeto":"post","accionTipo":"comentario","ts":"02:48:55","nick":"seba123neo","userId":"1180918","id":15521634,"accion_name":"Hola","url":"","titulo":"Hola como" estas"}

como ven todo esta bien, solo que esa doble comilla a lo ultimo la necesito reemplazar, pero sin reemplazar las otras sino el JSON es unutil.

creo que la solucion es RegEx, pero no encuentro la misma para hacer esto.

saludos.

Hola, gracias por responder, lo pude solucionar con algo que me paso el usuario LeandroA

Option Explicit
 
Private Sub Command1_Click()
    Debug.Print FixJSON(Text1)
End Sub
 
Private Function FixJSON(ByVal sJSON As String) As String
    Dim sArr() As String
    Dim lPos As Long, i As Long
 
    If Len(sJSON) = 0 Then Exit Function
 
    sArr() = Split(sJSON, ",")
 
    For i = 0 To UBound(sArr)
        Do While UBound(Split(sArr(i), Chr$(34))) > 4
            lPos = InStr(sArr(i), ":")
            lPos = InStr(lPos + 2, sArr(i), Chr$(34))
            sArr(i) = Left$(sArr(i), lPos - 1) & Mid$(sArr(i), lPos + 1)
        Loop
    Next
 
    FixJSON = Join(sArr, ",")
End Function

saludos.