Внезапно код перестал работать в VBA Excel. Выдавая ошибку RuntimeError 91!

Код работал, но при обновлении сайта курсов валют, перестал внезапно работать и начал выдавать ошибку RuntimeError 91. Вот сам код:

Sub Get_rates()
              '-----------------Периодичность---------------------

Dim finalResultSheet As Worksheet
Dim balanceSheet As Worksheet
Dim ras As Worksheet

Dim balanceLastRow As Double
Dim finalResultLastRow As Double
Dim rasLR As Double



Set finalResultSheet = Worksheets("Рабочий -Equity+Bonds Position_")
Set balanceSheet = Worksheets("Баланс")
Set ras = Worksheets("Расчеты")



Dim curs As Worksheet
Dim lastcur As Date

Dim cursLR As Double
Dim i As Double
i = 1

Set curs = Worksheets("Расчеты")

lastcur = ras.Range("K18")
MsgBox lastcur
Do While lastcur < Worksheets("Курсы").Range("L3").Value

lastcur = Worksheets("Курсы").Range("L3").Value

MsgBox lastcur
curs.Range("H" & cursLR + i) = lastcur



                    '-----------------------Данные НБ РК--------------------------
                    Dim nbrkDateFormat As String
                
                    nbrkDateFormat = Format(lastcur, "dd.mm.yyyy")
                
                    Dim nbrkData As Object
                    Set nbrkData = CreateObject("msxml.DOMDocument")
                    nbrkData.async = 0
                    nbrkData.Load ("http://www.nationalbank.kz/rss/get_rates.cfm?fdate=" & nbrkDateFormat & "&switch=russian")
                    Worksheets("Расчеты").Range("M18").Value = nbrkData.SelectSingleNode("*/item[title='USD']/description").ChildNodes(Abs(0)).NodeValue
                    Worksheets("Расчеты").Range("M19").Value = nbrkData.SelectSingleNode("*/item[title='EUR']/description").ChildNodes(Abs(0)).NodeValue
                    Worksheets("Расчеты").Range("M20").Value = nbrkData.SelectSingleNode("*/item[title='RUB']/description").ChildNodes(Abs(0)).NodeValue

                    
                    



MsgBox ("Данные обновлены")

End Sub

Worksheets("Расчеты").Range("M18").Value = nbrkData.SelectSingleNode("*/item[title='USD']/description").ChildNodes(Abs(0)).NodeValue Ругается на этот код!! И ссылка на Веб-сервис курсов валют на определенную дату: https://nationalbank.kz/rss/get_rates.cfm?fdate=22.07.2020