VBscript function to test changing advertisement on a webpage

In QTP, i need to add a Vb script function to test rolling advertisement on our Webpage.