exit do [VBA]

option explicit

public sub exit_do()

  dim i as long

  i = 10

  do while i > 5
     msgBox(i) ' 10, 9, 8, 7, 6

    if i = 5 then
       exit do
    end if

    i = i - 1
  loop

end sub