Public Function DeCodeJson(ByVal txt As String) As String
    Static oREGEXP As VBScript_RegExp_55.RegExp
    
    Dim oMatches As VBScript_RegExp_55.MatchCollection
    Dim m As Object
    Dim coll As New Collection
    Dim item As Variant
    Dim char As String
    
    On Error Resume Next
    If oREGEXP Is Nothing Then Set oREGEXP = CreateObject("VBScript.RegExp"): oREGEXP.Global = True
    oREGEXP.Pattern = "\\u[A-Fa-f0-9]{4}"
 
    If oREGEXP.Test(txt) Then
        Set oMatches = oREGEXP.Execute(txt)
        For Each m In oMatches
            coll.Add m.Value, CStr(m.Value)
        Next
    End If
 
    For Each item In coll
        char = ChrW(Val(Replace(item, "\u", "&h")))
        txt = Replace(txt, item, char)
    Next
 
    For Each item In Array("""", "/")
        txt = Replace(txt, "\" & item, item)
    Next
    txt = Replace(txt, "\n", vbNewLine)
    DeCodeJson = Replace(Replace(txt, "\\", "\"), "<br>", vbCrLf)
End Function