sorry, i find some error with my code 

Sub FetchAndParseData_1()
    Dim xhr As Object
    Dim URl As String
    Dim response As String
    Dim json As Object
    Dim tables As Object
    Dim data As Object
URl = "https://www.twse.com.tw/rwd/zh/afterTrading/MI_INDEX?date=20240327&type=ALLBUT0999&response=json&_=1711564048882"
Set xhr = CreateObject("MSXML2.XMLHTTP")
xhr.Open "GET", URl, False
    xhr.send
response = xhr.ResponseText
    'Debug.Print response
' Parse JSON response
    Set json = JsonConverter.ParseJson(response)
    ' Check if JSON contains "tables" key
    'If json.Exists("tables") Then
        'Set tables = json("tables")
        'Set data = tables(8)("data")
    Debug.Print json("tables")(8)("data")
    'Else
        'MsgBox "No tables found in JSON response."
    'End If
' Clean up
    Set xhr = Nothing
End Sub