帮忙把下面的JS代码转成VB的,谢谢
function binl2b64(binarray)
       {
         var tab = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
         var str = "";
         for(var i = 0; i < binarray.length * 4; i += 3)
         {
           var triplet = (((binarray[i    >> 2] >> 8 * ( i    %4)) & 0xFF) << 16)
                       | (((binarray[i+1 >> 2] >> 8 * ((i+1)%4)) & 0xFF) << 8 )
                       |   ((binarray[i+2 >> 2] >> 8 * ((i+2)%4)) & 0xFF);
           for(var j = 0; j < 4; j++)
           {
             if(i * 8 + j * 6 > binarray.length * 32) str += b64pad;
             else str += tab.charAt((triplet >> 6*(3-j)) & 0x3F);
           }
         }
         return str;
       }
     </script>