<caption>Non-EURO operations</caption>																		
<thead><tr><th>Ref.</th><th>Curr.</th><th>Settlement date</th><th>Maturity date</th><th class="number">Days</th><th class="number">Allotted amount</th></tr></thead><tbody><tr><td><a href="20180071.en.html" class="inline-link">20180071</a></td><td>USD</td></td><td>19/07/2018</td><td>26/07/2018</td><td class="number">7</td><td class="number">0.12&nbsp;bn</td></tr></tbody><tfoot><tr><td colspan="11">1) MRO = Main Refinancing Operations, LTRO = Long Term Refinancing Operations, OT = other type of operation</td></tr></tfoot></table>	

Dim objHttp As Object, objHtml As Object
Dim objTable As Object, objRow As Object
Dim strURL As String, strHtml As String

																
strURL = "http://www.ecb.europa.eu/mopo/implement/omo/html/index.en.html"
    
    Set objHttp = CreateObject("MSXML2.XMLHTTP") '"MSXML.XMLHTTPRequest"
    Set objHtml = CreateObject("HTMLFile")
    
    objHttp.Open "GET", strURL, False
    objHttp.Send
    
    strHtml = objHttp.ResponseText