Den her melder fejl ?

Function FindValutakurs(ISO)
 
  ' URL til XML-fil
  xmlfil = "http://www.nationalbanken.dk"
  xmlfil = xmlfil & "/dndk/valuta.nsf/valuta.xml"
 
  ' Brug Microsofts MSXML
  Set doc = CreateObject("msxml2.DOMDocument")
  doc.async = False
 
  ' Hent fil
  doc.Load xmlfil
 
  ' Find og returner kurs ved hjælp af XPATH
  Set noder = doc.selectNodes _
  ("//currency[@code='" & ISO & "']")
  FindValutakurs = Val(noder(0).Attributes. _
  getNamedItem("rate").Text)
 
End Function

MsgBox FindValutakurs("EUR")