 Sub CalculateRevenue()  Dim unitPrice As Currency  Dim quantitySold As Integer  Dim revenue As Currency  Dim discount  Dim discount2  Dim reve
{"Image DocumentName": "Calculate Revenue with Discount", "Image ImageDescription": "Sub CalculateRevenue() Dim unitPrice As Currency. Dim quantitySold As Integer. Dim revenue As Currency. Dim discount. Dim discount2. Dim revenueDiscounted. Get the user s inputs, then calculate revenue. unitPrice = InputBox( Enter the unit selling price. , Selling price ) quantitySold = InputBox( Enter the number of units sold. , Units sold ) revenue = unitPrice   quantitySold. If quantitySold > 100 Then. discount = 0.2. discount2 = revenue   0.2. MsgBox discount is 20% and = & Format(discount2,  #,##0 ) Else. discount = 0. MsgBox No discount End If. revenueDiscounted = revenue - (revenue   discount) Report the results. MsgBox The revenue from this product was & Format(revenueDiscounted,  #,##0 ) _. & , vbInformation, Revenue End Sub.", "Image XResolution": "37", "Image YResolution": "37", "Image ResolutionUnit": "Pixels/Centimeter", "Image Software": "SlidePlayer", "Image YCbCrPositioning": "Centered"}