พี่ ๆ ครับ ช่วยเขียน Code VB.net ให้ได้ผลลัพเหมือนกันกับ Code PHP ต่อไปหน่อยครับ

$tambon_book_date ="$day $month $year";
$Domain = "Song-Cp16";
$Domain2= "att_Song-Cp16";
$Bhudhist_date = date("Y")+543;
$pmdate = date(His);
$tambon_book_dateSent = date("d-m-$Bhudhist_date");
$tambon_book_timeSent = date("H:i:s");

$file = $HTTP_POST_FILES['fileupload']['name']; 
$type= strrchr($file,"."); 
$tempfile = date("d-m-$Bhudhist_date");

$file = $HTTP_POST_FILES['att_fileupload']['name'];
$type = strrchr($file,"."); 


if ($type==".pdf")
{
$realname = $tempfile."_".$pmdate."_".$Domain.".pdf";
}
elseif ($type==".doc")
{ 
$realname = $tempfile."_".$pmdate."_".$Domain.".doc";
}
elseif($type==".xls")
{
$realname = $tempfile."_".$pmdate."_".$Domain.".xls";
}
elseif($type==".zip")
{
$realname = $tempfile."_".$pmdate."_".$Domain.".zip";
}
elseif($type==".rar")
{
$realname = $tempfile."_".$pmdate."_".$Domain.".rar";
}
elseif(($type==".docx")||($type==".xlsx"))
{

$msgPost1="Error! Can't Upload File Extension.docx Or .xlsx";

echo "<script type='text/javascript'>";
echo "var strMessage='$msgPost1';";
echo "alert(strMessage);";
echo "</script>";
exit();
}
else
{

$msgPost2="Error! Can't Upload This type of file";

echo "<script type='text/javascript'>";
echo "var strMessage='$msgPost2';";
echo "alert(strMessage);";
echo "</script>";
exit();
}

if (is_uploaded_file($HTTP_POST_FILES['TbtoProv_fileupload']['tmp_name']) )
{
copy($HTTP_POST_FILES['TbtoProv_fileupload'['tmp_name'], "book/$realname");
$Url="book/TambonSentBook/$realname";
$Filename=$HTTP_POST_FILES['TbtoProv_fileupload']['name'];
$size=$HTTP_POST_FILES['TbtoProv_fileupload']['size']/1024/1024;
$size1=number_format($size,3);
}
$sql=" INSERT INTO tambon_booksenttoamp(fileupload)values('$Url')";
$sqlquery=mysql_query($sql);