Non riesco a capire perchè la prima Mid dentro a questo while si pianti
<%
Sub dividi_testo (testo)

dim scritto
dim carat
dim lunghezza
dim i

i=0
indice_array=0
lunghezza=Len(testo)

While i<lunghezza+1
carat=Mid(testo,i,1)

if carat= "<" then
carat=Mid(testo,i+1,1)

elseif carat ="I" then

carat=Mid(testo,i+2,1)

elseif carat= "M" then

carat=Mid(testo,i+3,1)

elseif carat ="G" then

frase(indice_array)=scritto
indice_array=indice_array+1
call immagini(testo,i)
i=i+1

else
scritto=scritto&carat
i=i+1
end if


Wend
End sub
%>