' заполняем список курсов валют
	xmldoc.async = False
	xmldoc.setProperty "ServerHTTPRequest", True
	'текущий на сегодня
	url_request = "https://www.nbrb.by/Services/XmlExRates.aspx"
	
	
	Dim CountCycle  As Integer
	Dim StopCycle As Integer
	CountCycle = 1
	StopCycle = 0
	Do While CountCycle < 100 And StopCycle = 0
		If xmldoc.Load(url_request) Then 'запрос к НБ 
			Set NodeList = xmldoc.selectNodes("*/Currency")
			If NodeList.length > 0 Then
				Print "Загрузка XML произошла с " & CStr(CountCycle) & " раза" 
				StopCycle = 1
			End If
			
			For i=0 To NodeList.length - 1
				Set xmlNode = NodeList.Item(i).cloneNode(True)
				
				cur_t = xmlNode.childNodes(1).Text ' Char code
				Print "Char Code" & cur_t
				Factor = CLng( xmlNode.childNodes(2).Text ) ' Scale
				Print "Scale" & Factor
				Value = CDbl( Replace(xmlNode.childNodes(4).Text, ".", ",") )  ' Rate
				Print "Rate" & Value
				If cur_t = "RUB" Then cur_t = "RUR"
				RatesList(cur_t) = Value / Factor
			Next
		Else 
			If xmldoc.parseError.errorCode <> 0 Then 
				Print ("Error:" & xmldoc.parseError.reason)
			End If
		End If
		CountCycle = CountCycle + 1
	Loop