Print even numbers in a range

Dim n
n=30
for i=1 to n
 if i mod 2 = 0 then
  msgbox "The number: " & i & " is even"
 end if
next