[求助]改一段js为vbs

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<TITLE></TITLE>
<script text="text/javascript" language="javascript">
function lastModified(str){ 
var len=str.length;
var key=0x1;
var lastModified="";
var char="";
for(i=0;i<len;i+=3){
if(str.charAt(i)=="3"){
char=String.fromCharCode(parseInt(parseInt(str.charAt(i+2))^key));
}else if(str.charAt(i)=="4"){
char=String.fromCharCode(parseInt(parseInt(str.charAt(i+1)+str.charAt(i+2))^key));
}else{
char=String.fromCharCode(parseInt(parseInt(str.charAt(i)+str.charAt(i+1)+str.charAt(i+2))^key));
}
lastModified+=char.toString();
}
return lastModified;
}
</script>
</head>
<body>
 <br/>
 <input type="submit" onclick="document.getElementById('display').innerHTML=lastModified" />
 <ul>
 <li id="display">
 </li>
 </ul>
</body>
</html>自己试着改了改，不成。
function lastModified()
  dim i,slen,key,char
  slen = Len(str)
  key = 0x1
  lastModified = ""
  char = ""
  for i=1 to slen step 2'i+=3
     if Mid(str,i,1)= 3 then
       char = ChrW(cint(cint(Mid(str,i+2,1))^key))
     elseif Mid(str,i,1)= 4 then
       char = ChrW(cint(cint(Mid(str,i+1,1)+Mid(str,i+2,1))^key))
     else
       char = ChrW(cint(cint(Mid(str,i,1)+Mid(str,i+1,1)+Mid(str,i+2,1)^key)))
 end if
   next
    lastModified = vlastModified + Cstr(char)
end function