VBSCRIPT DO WHILE NOT