ASP - Paso de arrays por parametros

Hola a tod@s, tengo este codigo:
<%
sub NormalizarASCII(byref list)
dim i

for i = 0 to 255
list(i) = "A"
next

end sub

sub Ejecutar()
dim lista(256)
dim i

NormalizarASCII(lista)
for i = 0 to 255
response.write(lista(i) & "<br>")
next

end sub
%>
Pero no imprime nada en el procedimiento Ejecutar porque el array esta vacio. ¿Alguien sabe por que y como arreglarlo? Muchas gracias:

Luis

Solo ocupa este codigo

For i = 1 to 255

a=chr(i)
response.write i
response.wirte a
next

Solo ocupa este codigo

For i = 1 to 255

a=chr(i)
response.write i
response.wirte a
next