convert Php to Excel Macro

1) convert the following logic into Excel Macro $floatP25 = p_l_price($GBPPrice, $strPacketType, 0.25, $GBPPrice); $floatP50 = p_l_price($GBPPrice, $strPacketType, 0.50, $floatP25); $floatP75 = p_l_price($GBPPrice, $strPacketType, 0.75, $floatP50); floatP100 = p_l_price($GBPPrice, $strPacketType, 1, $floatP75); function p_l_price($GBPPrice, $strPacketType, $intProfitlevel, $intStartingValue) { for ($intI = 0; $intI < 100000; $intI++) { if (0 == $intI) { $Selling_Price = $intStartingValue; } else { $Selling_Price = $Selling_Price + 0.05; }//end else $intp_l_price = GetProfitablePrice($GBPPrice, $strPacketType, $Selling_Price); if ($intp_l_price > $intProfitlevel || $intp_l_price == $intProfitlevel) { return number_format($Selling_Price, 2); break; }//end if }//end for loop } //end function function GetProfitablePrice($GBP_unit_price, $strPacketType, $Selling_Price) { if ($strPacketType == 1) { $strPacketCost = "0.90"; } elseif ($strPacketType == 2) { $strPacketCost = "1.3"; } elseif ($strPacketType == 3) { $strPacketCost = "2.93"; } elseif ($strPacketType == 4) { $strPacketCost = "4.25"; } $commisson = $Selling_Price * 0.09; $pick_pack = 0.80; $paypal_commision = 0.2 + ( 0.024 * $Selling_Price ); $vat = $Selling_Price - ( $Selling_Price / 1.2); $total_cost = $GBP_unit_price + $commisson + $pick_pack + $paypal_commision + $vat + $strPacketCost; $p_l_amt = $Selling_Price - $total_cost; $p_l_per = 0; if (0 != $GBP_unit_price) { $p_l_per = $p_l_amt / $GBP_unit_price; } return $p_l_per; }