exit for [VBA]

option explicit

public sub exit_for()

  dim a as long
  dim b as long

  a = 5
  b = 10

  dim i as long

  for i = a to b
    msgBox(i) '  5, 6, 7, 8
    if i = 8 then
       exit for
    end if
  next i

end sub