Function GetRateUB(ByVal CurrencyName As String, ByVal RateDate As Date) As Double
    Dim XmlDoc As MSXML2.DOMDocument60
    Dim objListOfNodes As IXMLDOMNodeList
    Dim oElement As IXMLDOMElement


    Set XmlDoc = New DOMDocument60
    XmlDoc.async = False
    XmlDoc.validateOnParse = False

        XmlDoc.Load "http://bank.gov.ua/NBUStatService/v1/statdirectory/exchange?date=" & Format(RateDate, "yyyymmdd")
        XmlDoc.setProperty "SelectionLanguage", "XPath"
        Set objListOfNodes = XmlDoc.selectNodes("//*")
        For Each oElement In objListOfNodes
            If oElement.nodeName = "currency" Then
                If oElement.ChildNodes(0).nodeTypedValue = CurrencyName Then
                    GetRateUB = Replace(oElement.ChildNodes(2).nodeTypedValue, ".", Mid(1 / 2, 2, 1))
                    Exit For
                End If
            End If
        Next

End Function