Dim s As New WinHttp.WinHttpRequest
    Dim ReturnStr As String, FileNumber, url
        

    url = "http://goszakup.gov.kz/app/index.php/ru/publictrade/index/05"
    s.Open "GET", url
    s.send
    ReturnStr = s.responseText
    End Sub