echochio

Dim WebPage(7)
WebPage(0) = "http://echochio.pixnet.net/blog/post/32570517"
WebPage(1) = "http://echochio.pixnet.net/blog/post/32570549"
WebPage(2) = "http://echochio.pixnet.net/blog/post/32570679"
WebPage(3) = "http://echochio.pixnet.net/blog/post/32570699"
WebPage(4) = "http://echochio.pixnet.net/blog/post/32570709"
WebPage(5) = "http://echochio.pixnet.net/blog/post/32570783"
WebPage(6) = "http://echochio.pixnet.net/blog/post/32570799"
WebPage(7) = "http://echochio.pixnet.net/blog/post/32571685"
waitTime= 50000 'wait period in milliseconds'