for next [VBA]

option explicit

public sub for_next()

  dim a as long
  dim b as long

  a = 5
  b = 10

  dim i as long
  for i = a to b
    msgBox(i)
  next i


end sub

sub for_next 

    for i = 1 to 4
        msgbox(i)
    next i

end sub