код требует исправления

[Gambit365]

Re: Парсер Delux_plus```

this piece of code has recently stopped working hope someone can fix

Этот фрагмент кода недавно перестал работать, надеюсь, кто-нибудь сможет исправить

'Get Home Matches

rowindx = 2
 Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", "https://d." & Sourcer & "x/feed/pr_1_" & country_id & "_" & participantEncodedIds1 & "_0_0_ru_1", False
oXMLHTTP.setRequestHeader "X-Fsign", "SW9D1eZo"
oXMLHTTP.Send
response = oXMLHTTP.ResponseText
fs_rows = Split(response, "~")
fs_rows_length = UBound(fs_rows) - LBound(fs_rows)
Call Show_PrBar_Or_No(fs_rows_length, "Loading home ...")
For i = 0 To fs_rows_length - 4
    If bShowBar Then Call MyProgresBar
    fs_row = Split(fs_rows(i), "¬")
    fs_row_length = UBound(fs_row) - LBound(fs_row)
    fs_index = Split(fs_row(0), ChrW(&HF7))
    If IsArray(fs_index) Then
        fs_index_name = fs_index(0)
        fs_index_value = fs_index(1)
    End If
    If fs_index_name = "SA" Then
        sport_id = fs_index_value
    ElseIf fs_index_name = "ZA" Then
        tour_name = ""
        home_name = ""
        For J = 0 To fs_row_length - 1
            fs_row_parts = Split(fs_row(J), ChrW(&HF7))
            If fs_row_parts(0) = "ZA" Then tour_name = fs_row_parts(1)
            If fs_row_parts(0) = "ZB" Then country_id = fs_row_parts(1)
            If fs_row_parts(0) = "ZC" Then tour_id = fs_row_parts(1)
        Next J
    ElseIf fs_index_name = "AA" Then
        home_name = ""
        For J = 0 To fs_row_length - 1
            fs_row_parts = Split(fs_row(J), ChrW(&HF7))
            If fs_row_parts(0) = "AA" Then match_id = fs_row_parts(1)
            If fs_row_parts(0) = "AD" Then
                date_match = DateAdd("s", fs_row_parts(1), "01/01/1970")
                date_match = DateAdd("h", timezone, date_match)
                date_match = Format(date_match, "yyyy.mm.dd hh:mm")
            End If
            If fs_row_parts(0) = "AA" Then idios = fs_row_parts(1)
            If fs_row_parts(0) = "AE" Then home_name = fs_row_parts(1)
            If fs_row_parts(0) = "AF" Then away_name = fs_row_parts(1)
            If fs_row_parts(0) = "BA" Then home_first = fs_row_parts(1)
            If fs_row_parts(0) = "BB" Then away_first = fs_row_parts(1)
            If fs_row_parts(0) = "BC" Then home_second = fs_row_parts(1)
            If fs_row_parts(0) = "BD" Then away_second = fs_row_parts(1)
            If fs_row_parts(0) = "PX" Then participantEncodedIds12 = fs_row_parts(1)
        Set oRegExp = CreateObject("VBScript.RegExp")
        oRegExp.Pattern = "\s\(...\)"
        home_name = oRegExp.Replace(home_name, "")
        away_name = oRegExp.Replace(away_name, "")
        
        Next J
        'If fs_index_value = id Then home_name = ""
    End If
    If tour_name = "" Or home_name = "" Then
    Else
        Sheets("Athome").Range("A" & rowindx).Value = tour_name
        Sheets("Athome").Range("B" & rowindx).Value = date_match
        Sheets("Athome").Range("C" & rowindx).Value = home_name
        Sheets("Athome").Range("D" & rowindx).Value = away_name
        Sheets("Athome").Range("E" & rowindx).Value = home_first
        Sheets("Athome").Range("F" & rowindx).Value = away_first
        Sheets("Athome").Range("G" & rowindx).Value = home_second
        Sheets("Athome").Range("H" & rowindx).Value = away_second
        If participantEncodedIds12 = participantEncodedIds1 Then
            Sheets("Athome").Range("I" & rowindx).Value = "Athome"
            Sheets("Athome2").Range("A" & rowindx).Value = tour_name
            Sheets("Athome2").Range("B" & rowindx).Value = date_match
            Sheets("Athome2").Range("C" & rowindx).Value = home_name
            Sheets("Athome2").Range("D" & rowindx).Value = away_name
            Sheets("Athome2").Range("E" & rowindx).Value = home_first
            Sheets("Athome2").Range("F" & rowindx).Value = away_first
            Sheets("Athome2").Range("G" & rowindx).Value = home_second
            Sheets("Athome2").Range("H" & rowindx).Value = away_second
            Sheets("Athome2").Range("I" & rowindx).Value = "Athome"
        Else
            Sheets("Athome").Range("I" & rowindx).Value = "Guests"
            Sheets("Athome3").Range("A" & rowindx).Value = tour_name
            Sheets("Athome3").Range("B" & rowindx).Value = date_match
            Sheets("Athome3").Range("C" & rowindx).Value = home_name
            Sheets("Athome3").Range("D" & rowindx).Value = away_name
            Sheets("Athome3").Range("E" & rowindx).Value = home_first
            Sheets("Athome3").Range("F" & rowindx).Value = away_first
            Sheets("Athome3").Range("G" & rowindx).Value = home_second
            Sheets("Athome3").Range("H" & rowindx).Value = away_second
            Sheets("Athome3").Range("I" & rowindx).Value = "Guests"
        End If
        rowindx = rowindx + 1
    End If
Next i
If bShowBar Then Unload frmStatusBar
Sheets("Athome").Range("A:I").Sort Key1:=Sheets("Athome").Columns("B"), Header:=xlYes, Order1:=xlDescending
Sheets("Athome2").Range("A:I").Sort Key1:=Sheets("Athome2").Columns("B"), Header:=xlYes, Order1:=xlDescending
Sheets("Athome3").Range("A:I").Sort Key1:=Sheets("Athome3").Columns("B"), Header:=xlYes, Order1:=xlDescending