Function GetRate(ByVal CurrencyName As String, Optional ByVal RateDate As Date) As Double
    Dim i&, xmldoc, nodeList, xmlNode
    On Error Resume Next
    If Len(CurrencyName) <> 3 Then Exit Function Else CurrencyName = UCase(CurrencyName)
    If RateDate = 0 Then RateDate = Date
    Set xmldoc = CreateObject("Msxml.DOMDocument"): xmldoc.async = False
    If Not xmldoc.Load("http://www.cbr.ru/scripts/XML_daily.asp?date_req=" & Format(RateDate, "dd\/mm\/yyyy")) Then Exit Function
    Set nodeList = xmldoc.SelectNodes("//Valute")
    For i = 0 To nodeList.Length - 1
        Set xmlNode = nodeList.Item(i)
        If xmlNode.ChildNodes(1).Text = CurrencyName Then
            GetRate = CDbl(xmlNode.ChildNodes(4).Text) / Val(xmlNode.ChildNodes(2).Text)
            Exit Function
        End If
    Next i
End Function