Format Uang pada Visual Basic

Di bawah ini cara membuat format uang pada Visual Basic, semoga berguna

function uang($doi)
{
if(!$doi) {$doi=0;}
$doi=”Rp “.str_replace(”,”,”.”,number_format($doi)).”,-”;
return $doi;
}echo uang(1000000);
?>