•If costs =
revenue Then
• txtResult.Text = "Break even"
•Else
• If costs < revenue Then
• profit = revenue - costs
• txtResult.Text = "Profit is "
& _
•
FormatCurrency(profit)
• Else
• loss = costs - revenue
• txtResult.Text = "Loss is "
& _
•
FormatCurrency(loss)
• End If
•End If