[Ayuda] Traducir Codigo php a VB 6

[thebestmatrix007]

hola bueno de nuevo estoy aqui pidiendole ayuda a los maestros de programacion.

en esta ocasion tengo un pequeño problema con un codigo php que no lo he logrado traducir bien del todo en php por eso quisiera su ayuda a ver si ustedes pueden dejarlo en VB bien.

el codigo es el siguiente.

Código:

<?PHP

function updaterank() {
   global $db;
     $updrank = $db->Execute("SELECT Id, TotalScore FROM game ORDER BY 'TotalScore' DESC");
     $rank = 0;
     foreach ($updrank->GetArray() as $r => $rankinfo) {
          $rank++;
          $db->Execute("UPDATE game SET TotalRank=? WHERE Id = ?", array($rank,$rankinfo['Id']));
     }
}

function updategrade() {
   global $db;



                   $db->Execute("UPDATE game SET TotalGrade='19' WHERE TotalScore >= 0 and TotalScore < 1099 and TotalGrade != 19 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='18' WHERE TotalScore >= 1100 and TotalScore < 1199  and TotalGrade !=18 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='17' WHERE TotalScore >= 1200 and TotalScore < 1499 and TotalGrade !=17 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='16' WHERE TotalScore >= 1500 and TotalScore < 1799 and TotalGrade !=16 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='15' WHERE TotalScore >= 1800 and TotalScore < 2299 and TotalGrade !=15 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='14' WHERE TotalScore >= 2300 and TotalScore < 2799 and TotalGrade !=14 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='13' WHERE TotalScore >= 2800 and TotalScore < 3499 and TotalGrade !=13 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='12' WHERE TotalScore >= 3500 and TotalScore <= 4199 and TotalGrade !=12 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='11' WHERE TotalScore >= 4200 and TotalScore <= 5099 and TotalGrade !=11 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='10' WHERE TotalScore >= 5100 and TotalScore <= 5999 and TotalGrade !=10 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='9' WHERE TotalScore >= 6000 and TotalScore <= 6899 and TotalGrade !=9 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='8' WHERE TotalScore >= 6900 and TotalScore <= 8172 and TotalGrade !=8 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='7' WHERE TotalScore >= 8173 and TotalScore <= 9939 and TotalGrade !=7 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='6' WHERE TotalScore >= 9940 and TotalScore <= 13076 and TotalGrade !=6 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='5' WHERE TotalScore >= 13077 and TotalScore <= 16024 and TotalGrade !=5 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='4' WHERE TotalScore >= 16025 and TotalScore <= 21984 and TotalGrade != 4 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='3' WHERE TotalScore >= 21985 and TotalScore <= 27280 and TotalGrade !=3 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='2' WHERE TotalScore >= 27281 and TotalScore <= 35334 and TotalGrade !=2 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='1' WHERE TotalScore >= 35335 and TotalScore <= 51221 and TotalGrade !=1 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='0' WHERE TotalScore >= 51222 and TotalScore <= 107915 and TotalGrade !=0 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='-1' WHERE TotalScore >= 107916 and TotalScore <= 199628 and TotalGrade !=-1 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='-2' WHERE TotalScore >= 199629 and TotalScore <= 227294 and TotalGrade !=-2 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='-3' WHERE TotalScore >= 227295 and TotalScore <= 238203 and TotalGrade !=-3 and  NoRankUpdate = 0");
             
                    $db->Execute("UPDATE game SET TotalGrade='-4' WHERE TotalScore >= 238204 and TotalGrade !=-4 and  NoRankUpdate = 0");

            
}

updaterank();
updategrade();

?>

ese es el codigo que quisiera pasarlo en php quisiera alguien me podria ayudar a traducirlo por completo a VB, ya luego ire intendiendo. espero su ayuda gracias.