Не часто работаю с данной библиотекой, сейчас уперся в ошибку

 res(1) = CDbl(Replace(colNodes.Item(0).Text, ",", ","))

Sub prepare_curr()
 
Dim dd_request As String
Dim i As Integer
Dim dd_course_xml As MSXML2.DOMDocument
Dim path As String
Dim res(1 To 4) As Double
Dim dd As Date
Dim colNodes As Object
 
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
Cells(2, 1) = 908
Cells(3, 1) = 840
Cells(4, 1) = 978
Cells(5, 1) = 826
Cells(6, 1) = 756
 
If Weekday(Cells(1, 12), vbMonday) <> 6 Then
    Cells(3, 2) = Cells(1, 12) + 1
    Cells(4, 2) = Cells(1, 12) + 1
Else
    Cells(3, 2) = Cells(1, 12) + 3
    Cells(4, 2) = Cells(1, 12) + 3
End If
 
Cells(2, 2) = Cells(2, 12) + 1
 
dd = Cells(3, 2)
 
path = "http://www.cbr.ru/scripts/XML_daily.asp?date_req="
    
    dd_request = Month(dd) & "/" & Year(dd)
    If Month(dd) < 10 Then dd_request = "0" & dd_request
    dd_request = Day(dd) & "/" & dd_request
    If Day(dd) < 10 Then dd_request = "0" & dd_request
    
Set dd_course_xml = CreateObject("MSXML2.DOMDocument")
    dd_course_xml.async = False
    dd_course_xml.Load (path & dd_request)
    
    If dd_course_xml.parseError.ErrorCode Then
        MsgBox dd_course_xml.parseError.reason
    End If
    
        
    Set colNodes = dd_course_xml.SelectNodes("//Valute[CharCode ='USD']/Value")
        res(1) = CDbl(Replace(colNodes.Item(0).Text, ",", ","))
    
    Set colNodes = dd_course_xml.SelectNodes("//Valute[CharCode ='EUR']/Value")
    res(2) = CDbl(Replace(colNodes.Item(0).Text, ",", ","))
    
    Set colNodes = dd_course_xml.SelectNodes("//Valute[CharCode ='GBP']/Value")
    res(3) = CDbl(Replace(colNodes.Item(0).Text, ",", ","))
    
    Set colNodes = dd_course_xml.SelectNodes("//Valute[CharCode ='CHF']/Value")
    res(4) = CDbl(Replace(colNodes.Item(0).Text, ",", ","))
    
    Cells(3, 3) = res(1)
    Cells(4, 3) = res(2)
    Cells(5, 3) = res(3)
    Cells(6, 3) = res(4)
 
 
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
 
End Sub

res(1) = CDbl(Replace(colNodes.Item(0).Text, ",",","))

res(1) = CDbl(Replace(colNodes.Item(0).Text, ".",","))