RosettaCodeData/Task/Program-termination/VBScript/program-termination.vb

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