小数点以下の桁数を表示するためのコスト値を取得できないようです。以下の値「100.00」のコードでは、「100」しか返されません
Session("TotalProductCost") = Convert.ToDecimal(Cost1) + Convert.ToDecimal(Cost2) + Convert.ToDecimal(Cost3) + Convert.ToDecimal(Cost4) + Convert.ToDecimal(Cost5)
Dim TotalProductAmt As Decimal
Decimal.TryParse(Session("TotalProductCost"), TotalProductAmt)
Dim Res As Decimal = TotalProductAmt
TotalAmount = TotalProductAmt.ToString()
TotalAmount = Res.ToString