I'm trying to convert currency in Excel using website data. Inputs should be (Date, Amount, Currency). For example: A2="date", B2="amount", C2="currency in 3 letters"

I found this piece of code that uses this uses this website (<https://www.xe.com/en/travel-expenses-calculator/>) to input data and receive the exchange, but it's not working anymore. Any ideas?

```
Public Function Currency_Converter(date As String, Amount As String, Currency As String) As Double

    Application.ScreenUpdating = False

    Dim XMLPage As New MSXML2.XMLHTTP60
    Dim htmldoc As New MSHTML.HTMLDocument
    Dim URL As String
    Dim sBody As String
    Dim Method As String
    Dim Cash As Double
    Dim HC As String
    Dim Day As String
    Dim Month As String
    Dim Year As String

    M = "CC" 'Method
    HC = "USD" 'HomeCurrency
    URL = "https://www.xe.com/en/travel-expenses-calculator/getweathereport.php"
    Day = Left(date, 2) 'RecepitDay
    Month = Mid(date, 4, 2) 'ReceiptMonth
    Year = Right(date, 4) 'ReceiptYear

    sBody = "Method=" & M & _
            "&HomeCurrency=" & HC & _
            "&Receipt=" & Amount & _
            "&ReceiptCurrency=" & Currency & _
            "&ReceiptDay=" & Day & _
            "&ReceiptMonth=" & Month & _
            "&ReceiptYear=" & Year

    XMLPage.Open "Post", URL, False
    XMLPage.setRequestHeader "Content-Type", "application/x-www-form-urlenconded"
    XMLPage.setRequestHeader "X-Requested-With", "XMLHttpRequest"
    XMLPage.send sBody

    htmldoc.body.innerHTML = XMLPage.responseText

    value = Split(XMLPage.responseText, ";")
    Currency_Converter = Replace(value(1), ".", ",")

```