this sucks, but here's a tip for looping messages in vbs:
--------------------------------------------------------------
do
msgbox "(your message here)"
loop
---------------------------------------------------------------
this will create an infinite loop of the message you put inbetween "do" and "loop".