interrompe il loop

[Jacqui]

ciao Forum
ho questa funzione:
Function R13(rot13text)
rot13text_rotated = ""
For i = 1 to Len(rot13text)
j = Mid(rot13text, i, 1)
k = Asc(j)
if k >= 97 and k =< 109 then
k = k + 13
elseif k >= 110 and k =< 122 then
k = k - 13
elseif k >= 65 and k =< 77 then
k = k + 13
elseif k >= 78 and k =< 90 then
k = k - 13
end if
rot13text_rotated = rot13text_rotated & Chr(k)
Next
R13 = rot13text_rotated
End Function

in un for next da 0 a 5.
Ho provato ad usarla in un <a href in cui solo il terzo record su 6 è vero.
bene..... si interrompe il for next!
potete aiutarmi?