For ...To ...Step...

Function show(num)
 For i=10 To num Step -2
  If i=2 Then
    msgbox "It is 2 "
  ElseIf i=0 Then
    msgbox "It is 0"
  Else
    msgbox "It is other..."
  End if
 Next
End Function

show(0)