Public Sub valut()
Dim d
Dim m
inpdate = CDate(InputBox("Введите дату в формате ДД.ММ.ГГГГ", _
"Курс валюты", Date))
d = Day(inpdate)
d = IIf(d < 10, "0" & d, d)
m = Month(inpdate)
m = IIf(m < 10, "0" & m, m)
  Set xmldoc = CreateObject("Msxml.DOMDocument")
  xmldoc.async = False
 
 
'Старая
'url_request = "http://nbt.tj/ru/kurs/?c=4&id=28&lg=ru&d=" & d & "-" & m & "-" & Year(inpdate) & "&export=xmlout"

url_request = "http://nbt.tj/ru/kurs/export_xml.php?date=" & Year(inpdate) & "-" & m & "-" & d & "&export=xmlout"
'http://nbt.tj/ru/kurs/export_xml.php?date=2015-07-31&export=xmlout

If Not xmldoc.Load(url_request) = True Then
MsgBox "Нет связи с интернетом", vbCritical, "Подключение"
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
Worksheets("1 ВАРИАНТ").Range("A6").Value = "Курс на дату: " & XDate & ""
Set NodeList = xmldoc.selectNodes("*/Valute")
For iIndex = 0 To NodeList.Length - 1
For i = 8 To 10 Step 1
      Set xmlNode = NodeList.Item(iIndex).CloneNode(True)
       Set node_attr = xmlNode.Attributes(0)
        If Worksheets("1 ВАРИАНТ").Range("C" & i & "").Value = xmlNode.childNodes(2).Text Then
            Worksheets("1 ВАРИАНТ").Range("D" & i & "").Value = (xmlNode.childNodes(3).Text) * 1

End If
Next i
Next
Set xmldoc = Nothing
End Sub

Sub СТРОЧН()
For Each c In Selection.Cells
    c.Value = StrConv(c.Value, vbLowerCase)
Next
End Sub