problema col for e Mid

[Progtox]

Salve a tutti. Non capisco perchè questo script con il for non funziona e senza funziona....vi prego ditemi dove sbaglio!!

<%
stringa = "Nel [1942] Cristoforo Colombo scopre l’ [America]"
dim arrayparole(10)
for i=0 to 10
inizio = instr(stringa,"[")
fine = instr(stringa,"]")
lunghezza = fine - inizio +1
arrayparole(i)= mid(stringa,inizio,lunghezza)
stringa = replace(stringa,mid(stringa,inizio,lunghezza),"<input name= type=""text""> ("&lunghezza-2&" car.)")
next

response.write(stringa)
response.write("

Soluzione:
")
response.write(arrayparole(0))
response.write(arrayparole(1))
%>

[Vitacillina]

Ma l'errore?

[Progtox]

non può eseguire il mid

[Vitacillina]

Fai un pò di debug stampati le variabili man mano che avanzi con lo script.