do loop [VBA]

option explicit

public sub do_loop()

  call do_while()
  call do_until()
  call do_exit ()

end sub

private sub do_while()

  dim i as integer

  i = 5 

  do while i > 0
    msgBox "do while: " & i
    i = i-1
  loop

end sub

private sub do_until()
  dim i as integer

  i = 5 

  do until i = 0
    msgBox "do until: " & i
    i = i-1
  loop

end sub

private sub do_exit()
  dim i as integer

  i = 5 

  do 
    msgBox "do exit: " & i
    i = i-1

    if i = 0 then
      exit do
    end if

  loop

end sub