Where to put the sleep function in MSXML request?

Question

I use the following function to check if a RSS url is healthy then consume it:

function testUrl(url)
    testUrl=0
    Set o = CreateObject("MSXML2.XMLHTTP&q