For i=10 To 0 Step -1
  Debug i
Next