VB error for HTTP status request - Operation time out

Hi have a code which check the http status of the URL but the problem is that I have around 25000 URL's for which I need to check http staus & this code always keeps givin me runtime error "Operation time out"(screen shot attached). please help me with as i can't leave my system unattained following is the code:

Please Login or Register  to view this content.

also is there any way that it can track the redirected url & page title of each url n store it in adjacent column.

thanks in advance!!