Public Sub key_rate()

Dim IE As Object
Dim wb As Workbook
Dim sh1 As Worksheet

Set wb = ThisWorkbook
Set sh1 = wb.Sheets("Sheet1")


Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate ("http://cbr.ru/hd_base/keyrate/")
While CBool(IE.Busy)
    l = l + 1
    If l > 29999 Then
        MsgBox "Something Is wrong. cbr.ru Is Not accessible", vbCritical, "cbr.ru"
        IE.Quit
        Set IE = Nothing
        Exit Sub
    End If
    DoEvents
Wend

a = "01.02.2020"
b = "25.02.2020"
Set dddd = IE.document.getElementById("UniDbQuery_FromDate")
        With IE.document
            .getElementById("UniDbQuery_FromDate").Value = a
            .getElementById("UniDbQuery_ToDate").Value = b
        End With


Set IE = Nothing


End Sub

Sub test()
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
With dict

    .Add "Вася", 150
    .Add "Валя", 10
    .Add "Ваня", 120
    .Add "Коля", 150
    .Add "Лёша", 80
    .Add "Саша", 50
    .Add "Лена", 350
    .Add "Маша", 200
End With
    Lind = 0: Uind = dict.Count - 1
    Do While dict.Item(sotr) < 150
        i = Int((Uind - Lind + 1) * Rnd + Lind) 'рандомный сотрудник
        sotr = dict.Keys()(i)
    Loop
    dict.Remove (sotr)
    
   

End Sub