JS转VB算法，简单，几行代码，我写的晕了

Question

<script>
var 参数1='ug`wnn';
var 参数2='^~L^|&+';
var 参数3=0;
var 参数4;
var 参数5='';
var 参数6=Math.floor(参数2.length/2);
while(参数3<参数1.length){参数4=参数1.charCodeAt(参数3++);
var 参数7=参数2.charCodeAt(参数4%参数2.length);
参数7=String.fromCharCode(参数7);
if(参数7=='L')参数7='<<';
if(参数7=='~')参数5+=~参数4*(-1);
else{参数5+=Math.floor(eval(参数4+参数7+参数6));
}}var ab=14;ab+="_";
ab+=参数5; 
document.getElementById("xn_biz").value=ab;
</script> 
转VBdim str1,str2,str3,str3,str4,str5,str6,str7 str1="ug`wnn"
 str2="^~L^|&+"
 str3=0
 str5="" if len(str2) mod 2 = 0 then
 str6=len(str2)/2
 else
 str6=(len(str2)-1)/2
 end if
 
while(str3<len(str1))str4=AscW(mid(str1,1,1))STR7=ASCW(MID(STR2,STR4%len(str2),1)STR7=ChrW(STR7)IF STR7="L" THEN STR7='<<'
IF STR7="~" THEN 
STR5=str5& str4*(-1)
else写不出了忘盟友帮下忙，下面是相关的说明
String.charCodeAt 使用方法: var code = "A".charCodeAt(0); 
类似AscW() 使用方法: dim code = AscW("A") 
String.fromCharCode 使用方法: var myStr = String.fromCharCode(97); 
类似ChrW() 使用方法：dim myStr = ChrW(97)