Write the code for a Sub procedure namedCalculateBonus. The procedure receives three decimal variables representing the salary, bonus rate, and bonus amount. The procedure should calculate the bonus amount by multiplying the salary by the bonus rate. Create your own variable names.

What will be an ideal response?

Private Sub CalculateBonus(ByVal decSalary As Decimal,
ByVal decBonusRate As Decimal,
ByRef decBonusAmount As Decimal)
decBonusAmount = decSalary * decBonusRate
End Sub