How do I convert from using Internet Explorer to using MSXML2.XMLHTTP?

Internet Explorer works very slowly and I'm not happy with it how do I convert it to MSXML2.XMLHTTP I don't know much about it normally works when there is little data but when it gets too much the process takes too long thanks to friends who will answer the question.

Sub skor()
Dim IE As Object

Sheets("SKOR").Range("A2:D999").ClearContents
Sheets("SKOR").Activate
'tarihsec = Sheets("Ayarlar").Range("H7").Value

On Error Resume Next

Shell "taskkill /f /im iexplore*"
basla = Timer: While (Timer - basla) < 1: Wend
Set IE = VBA.CreateObject("internetexplorer.application")
IE.Navigate "https://www.nesine.com/iddaa/canli-mac-sonuclari/futbol"'IE.Visible = True

While IE.Busy: DoEvents: Wend

basla = Timer: While (Timer - basla) < 1: Wend
IE.Document.getElementsByClassName("ddDate")(1).Click

While IE.Busy: DoEvents: Wend

basla = Timer: While (Timer - basla) < 1: Wend
IE.Document.getElementsByClassName ("results-table live-results")

While IE.Busy: DoEvents: Wend

basla = Timer: While (Timer - basla) < 0.5: Wend
saat = 0
sayi = 0
sayi1 = 0

For a = 0 To IE.Document.getElementsByClassName("team-name cursor-pointer").Length - 1
    Sayfa3.Cells(a + 2, 1).Value = IE.Document.getElementsByClassName("team-name cursor-pointer")(saat).innerText & " - "& IE.Document.getElementsByClassName("team-name cursor-pointer")(saat + 1).innerText
    Sayfa3.Cells(a + 2, 3).Value = IE.Document.getElementsByClassName("halftime-score cursor-pointer")(sayi + 1).innerText
    Sayfa3.Cells(a + 2, 4).Value = IE.Document.getElementsByClassName("result-score cursor-pointer")(sayi1).innerText
    Sayfa3.Cells(a + 2, 2).Value = IE.Document.getElementsByClassName("event-row match-row")(a).getElementsByTagName("dd")(0).innerText
    saat = saat + 2
    sayi = sayi + 2
    sayi1 = sayi1 + 1
Next a

IE.Quit
Set IE = Nothing
Sheets("SKOR").Range("A1").Select

End Sub