Есть у кого-нибудь прога для чтения курса USD с какого-нибудь сайта?

Private Sub GetUSD()
    Dim url_request As String
    Dim nodeList As Object
    Dim xmldoc As Object
    Dim xmlNode As Object
    Dim node_attr As Object
    Dim i As Integer
    Dim xdate As Date
    Dim Dollar As String
    
    Set xmldoc = CreateObject('Msxml.DOMDocument')
    xmldoc.async = False
    url_request = 'http://www.cbr.ru/scripts/XML_daily.asp?date_req=' + Format(Date, 'dd/mm/yyyy')
    If Not xmldoc.Load(url_request) = True Then
        MsgBox ('Äîêóìåíò íå çàãðóæåí')
        Exit Sub
    End If
    Set nodeList = xmldoc.selectNodes('ValCurs')
    Set xmlNode = nodeList.Item(0).cloneNode(True)
    Set node_attr = xmlNode.Attributes(0)
    xdate = node_attr.Value
    Set nodeList = xmldoc.selectNodes('*/Valute')
    For i = 0 To nodeList.length - 1
        Set xmlNode = nodeList.Item(i).cloneNode(True)
        If xmlNode.childNodes(1).Text = 'USD' Then
           Dollar = 'Курс доллара на ' & xdate & ': ' & xmlNode.childNodes(4).Text & ' рублей за ' & xmlNode.childNodes(2).Text & ' доллар'
        End If
    Next
    MsgBox Dollar
    Set xmldoc = Nothing
    Set nodeList = Nothing
    Set xmlNode = Nothing
End Sub

If Not xmldoc.Load(url_request) = True Then    
  MsgBox ('Äîêóìåíò íå çàãðóæåí')        
  Exit Sub  
End If