[renommé] algorithme de luhn vb.net

je traite un exercice sur la verification des carte bancaire en effet il faille que je passe par l'algorithme de luhn.
mon hic ! je le trouve seulement en php or moi je travail en visual basic puis je avoir la traduction du code source php en code source visual basic
merci pour votre sincere reponse
voici le code

<?php

 
 @param string $num
 
/

 function test_cb($num){
  if(strlen($num) == 16){ // 16 caractères
   // Séparation de tous les caractères
   $c = array();
   for($i=0; $i<16; $i++){
    if(is_numeric(substr($num,$i,1))){ // Uniquement des chiffres
     $c[$i] = substr($num,$i,1);
    }else{
     return false;
    }
   }
   // Contrôle
   $m1 = 0;
   for($i=0; $i<16; $i++){
    if(($i%2)==0){
     $x = $c[$i]*2;
     if($x>9){
      $m1 += $x-9;
     }else{
      $m1 += $x;
     }
    }else{
     $m1 += $c[$i];
    }
   }
   if(($m1%10)!=0){ // Doit être multiple de 10
    return false;
   }
   // Pas d'erreur
   return true;
  }else{
   return false;
  }
 }

S'il vous plait... Merci d'avance..!?

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.