Exit a while loop in VBS/VBA

VBScript’s While loops don’t support early exit. Use the Do loop for that:

num = 0
do while (num < 10)
  if (status = "Fail") then exit do
  num = num + 1
loop