array i alfabetisk orden vender forkert

MyArray=Split(holder,",")
max=ubound(MyArray)

For i=0 to max 
  For j=i+1 to max 
      if MyArray(i)<MyArray(j) then
          TemporalVariable=MyArray(i)
          MyArray(i)=MyArray(j)
          MyArray(j)=TemporalVariable
    end if
  next 
next 

For i=0 to max 
  Response.write (MyArray(i) & "<BR>") 
next 


problemet er at når jeg skriver den ud er den soteret med a som sidste bogstav hvad er det lige jeg har misset her