Не вытягивает курс валют

[sasha_prof]

помогите плиз почему не работает макрос на вытягивания курса валют.
Запускаю с аксеса вба

Sub GetRates()

'âèòÿãíåííÿ êóðñ³â âàëþò

Dim varInpDate As Variant, i As Long, j As Long
Dim WshShell As Object
Dim RegValue As String
Dim sDay As String, sMonth As String, sYear As String, sDMY As String
Dim sDollarRate As String, sEuroRate As String, sYuanRate As String, sPoundRate As String

varInpDate = VBA.Date


If varInpDate = "" Then Exit Sub

varInpDate = CDate(varInpDate)
sDay = Format(varInpDate, "dd")
sMonth = Format(varInpDate, "mm")
sYear = Format(varInpDate, "yyyy")
sURL = "http://tables.finance.ua/ru/currency/official/~/1/" & sYear & "/" & sMonth & "/" & sDay




URL2HTML
On Error Resume Next
sDollarRate = Mid(sHtmlCode, InStr(sHtmlCode, "USD</a></td><td ") + 93, 6)
sEuroRate = Mid(sHtmlCode, InStr(sHtmlCode, "ÅÂÐÎ</td><td ") + 29, 8)
sRublRate = Mid(sHtmlCode, InStr(sHtmlCode, "RUB</a></td><td ") + 97, 6)

sHtmlCode = ""





tekdate = varInpDate

DOLL = Replace(sDollarRate, " ", "")
UERe = Replace(sEuroRate, " ", "")

RUBL = Replace(sRublRate, " ", "")

DOLL = Round(DOLL / 100, 2)
UERe = Round((UERe / 100), 2)
RUBL = Round(RUBL, 2)
End Sub

Private Sub URL2HTML()
'Çàãðóæàåò Web-ñòðàíèöó, çàäàííóþ ïåðåìåííîé sURL, è ïîìåùàåò HTML â sHtmlCode
Dim objHttp As Object
On Error Resume Next
Set objHttp = CreateObject("MSXML2.XMLHTTP.3.0")
If Err.Number <> 0 Then
    Err.Clear
    Set objHttp = CreateObject("MSXML2.XMLHTTP")
    If Err.Number <> 0 Then
        Set objHttp = CreateObject("MSXML.XMLHTTPRequest")
    End If
End If
If objHttp Is Nothing Then
    MsgBox "Íåâîçìîæíî ñîçäàòü îáúåêò äëÿ ïîäêëþ÷åíèÿ ê èíòåðíåò!", 48, "Îøèáêà"
    End
End If
If objHttp Is Nothing Then Exit Sub
objHttp.Open "GET", sURL, False
On Error Resume Next
objHttp.Send
If Err.Number <> 0 Then
    MsgBox "Îòñóòñòâóåò äîñòóï â èíòåðíåò!", 48, "Îøèáêà"
    End
End If
On Error GoTo 0
sHtmlCode = objHttp.responseText
Set objHttp = Nothing
End Sub

[Stilet]

Отладкой пройти не желаешь?