Function Курс_Евро1() As Currency
       Dim Запрос$, Ответ$, Курс$
       Dim oHttp As Object
       Application.Volatile
       Запрос = "http://www.finanz.ru/valyuty/EUR-RUB"
       On Error Resume Next
       Set oHttp = CreateObject("MSXML2.XMLHTTP")
       If Err.Number <> 0 Then Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
       On Error GoTo 0
       If oHttp Is Nothing Then Exit Function
       oHttp.Open "GET", Запрос, False
       oHttp.Send
       Ответ = (oHttp.responseText)
'    Debug.Print Replace(Mid(Ответ, InStr(1, Ответ, "Ход торгов") + 83, 7), ",", ".")
       Курс = CCur(Mid(Ответ, InStr(1, Ответ, "Ход торгов") + 83, 7))
       Set oHttp = Nothing
       Курс_Евро1 = Курс
End Function

Function Site_(url As String)
      Dim Request As Object
      Dim ff As Integer
      Dim rc As Variant, s$
Application.Volatile
      Const maxLEN = 32767
      On Error GoTo EndNow
      Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")
      With Request
        .Open "GET", url, False
        .send
        s = .responseText
      End With
      Site_ = CCur(Mid(s, InStr(1, s, "Ход торгов") + 83, 7))
      Set Request = Nothing
      Exit Function
EndNow:
End Function