неясность с импортом

[peq]

Dim sURI As String, htmlcode As String, dt As Date, d As Integer, m As Integer, y As Integer
dt = Date: d = Day(dt): m = Month(dt): y = Year(dt)
sURI = "http://cbr.ru/currency_base/daily.aspx?C_month=" & m & "&C_year=" & y & "&date_req=" & d & "%2F" & m & "%2F" & y
With CreateObject("MSXML2.XMLHTTP"): .Open "GET", sURI, False: .Send: htmlcode = .responseText: End With
MsgBox htmlcode


почему-то выдает сообщение
Error! <!--Input string was not in a correct format. -->
ряд нужных текстовых данных, видимых через просмотр кода страницы не отображает.