如何将这段js程序改用vbscript编写呢？

<SCRIPT LANGUAGE="JavaScript">
function local(str){ 　　　　　　　　　　//计算字符串str中第200个汉字的位置的值。并返回。
window.alert("字符串:"+str);
var l=str.length;
window.alert("总长:"+l);
var n=0;
for (var i=0;i<l;i++)
{
if (str.charCodeAt(i)<0||str.charCodeAt(i)>255) n++
　　　　　　　　　//主要就是这句，我在vbscript里找不到能替代charCodeAt()的函数。
if (n>200) return i
}
return 0
}
</SCRIPT>

由于我想将上面函数的返回值传给<%=left(字符串,n)%>中变量n（在不提交网页的情况下）. 别人告诉我js中的值在不提交的情况下是不能传到<％％>中的。所以我想把上面js函数改写成vbscript的。不能哪个能帮帮我。