dim i, j
j = 0
do
    for i = 1 to 100
        while j < i
            if i = 3 then
                wscript.quit
            end if
        wend
    next
loop