Перевод из PHP в VB

  $input = "1001000"; // задаем последовательость
 
   $m = strlen($input); // узнаем длину

  $k = 2; // задаем самое минимально возможное k
 
   $l2n = log10(2); // 
 
   while ($k * $l2n < log10($k + $m + 1)) $k++; // вычисляем по формуле минимальное k

 $result = Array(); // заводим массив разрядов
 
     
 
   for ($i = 1, $j=0, $n = $k+$m; $i <= $n; $i++) { // проходим по всем разрядам
 
     if (($i & $i-1) == 0) { // если степень двойки, то есть контрольный разряд, то пропускаем
 
       $result[$i] = '-';
 
       continue;
 
     }
 
     $result[$i] = $input[$j++]; // в информационные разряды записываем исходные данные
 
   }

$control = 0;
 
   for ($i = 1, $n = $k+$m; $i <= $k+$m; $i++) { // проходим по всем разрядам
 
     if ($result[$i] == 1)
 
       $control ^= $i; // если единица, то суммируем по модулю два
 
   }
 
   $control = decbin($control); // преобразовываем в двоичный код
 
   for ($i=0, $n = strlen($control); $i<$k-$n; $i++) // дописываем спереди нули
 
     $control = "0".$control;

for ($i = 0, $j = 1, $n = strlen($control); $i < $n; $i++, $j*=2) {
 
     $result[$j] = $control[$i]; 
 
   }

$output = ""; 
 
   for ($i= 1, $n = count($result); $i <= $n; $i++)
 
     $output .= $result[$i];
 
   echo $output;