As I mentioned in a discussion post; here is code for getting the exchange rate of any currency as it currently stands! Use this function and receive the latest numbers!
To make your account, go to ExchangeRate-API.com! I won't be posting my API key here, of course.
PRINT "The exchange rate of USD to GBP is : "; ExchangeRate
("USD", "GBP")
URLFile = "exchangerate"
URL = " https://v6.exchangerate-api.com/v6/YOURAPIKEYHERE/latest/" + currency1
a% = API_Request(URL, URLFile)
ExchangeRate = ""
ExchangeRate = "Not found"
API_Request
= URLDownloadToFileA
(0, URL
+ CHR$(0), File
+ CHR$(0), 0, 0)