do until [VBA]

option explicit

' Control structures: http://support.microsoft.com/kb/141762
public sub do_until()

  dim i as long

  i = 10

  do until i <= 5
    msgBox(i) ' 10, 9, 8, 7, 6

    i = i-1
  loop ' NOT next!!!

end sub