VB function til at hente valutakurser fra nationalbanken

Jeg henter valutakurser fra Nationalbanken via nedenfor viste Function.
Det har virket i årevis. Jeg har intet ændret. Pludselig får jeg fejl 64!
Se nedenfor.
Linket til nationalbanken ser ud til at være uændret

Jeg har fundet dette link:
http://www.4guysfromrolla.com/webtech/110100-1.shtml

De har Server foran  CreateObject. Det har jeg ikke da jeg benytter Access?
Set xml = Server.CreateObject("Microsoft.XMLHTTP")

Kan fejlen ligge her eller ...........

Kan i hjælpe med hvad der ellers kan være galt?

-------------------------  Mine Koder-------------------
Const url = "http://www.nationalbanken.dk/_vti_bin/DN/DataService.svc/CurrencyRatesXML?lang=da"

Function xmlresponseText(url, Optional method = "GET")
    Dim xhr
    Set xhr = CreateObject("Microsoft.XMLHTTP")
    xhr.Open method, url, False
    xhr.Send  <=================  Her opstår fejl: VBInformation 64
    If xhr.Status = 200 Then
        xmlresponseText = byteArr2string(xhr.responseBody)
    Else
        Err.Raise 10000, , "network or site server error": End If
    Set xhr = Nothing
End Function