Problem med array

Hej,

Att skriva ut en array så här funkar bra:
<%
For i = 1 To 10
Response.Write i & ","
Next
%>
Out put: 1,2,3,4,5,6,7,8,9,10,

Men om jag i stället vill skriva ut det så här: 10,9,8,7,6,5,4,3,2,1,

Jag har provat så här:
<%
For i = 10 To 1
Response.Write i & ","
Next
%>

Men det skriver inte ut något alls!

Någon som vet?

For i = 10 To 1 Step - 1
  Response.Write(i & ", ")
Next