I am working on an assignment in Visual Basic 6.0. I have to develop a program that will calculate the total trip cost for each student including a 10%
discount for senior and financial aid.
When I enter the calculation with no discount applied, the output displays perfectly until I enter the calculations for the discount. When both the
output displays are in the code, the display for "no discount" shows only the text and not the price. The output for the discount applied still works.
I don't know what I'm doing wrong that the output does not display properly with no discount. How am I able to have both outputs displayed properly?
I hope I can get some help in this. I would deeply appreciate it.

The main problem I'm having is in red.

Here is the code:
Option Explicit
Dim curTotal As Currency
Dim strTotal As String
Dim strOutput As String
Dim curTenPercent As Currency
Dim curTwentyPercent As Currency
Dim curTotalDiscount As Currency
Dim strTotalDiscount As String
Dim strOutputDiscount As String

Private Sub cmdCalc_Click()
'Initialize values to variables
curTotal = 200

'Check if Rappelling
If chkRappel.Value = 1 Then
curTotal = curTotal + 30
End If

'Check if Backpacking
If chkBackpack = 1 Then
curTotal = curTotal + 45
End If

'Check if Canoeing
If chkCanoe = 1 Then
curTotal = curTotal + 25
End If

'Display message when no discount applied
If chkSenior.Value = 0 And _
chkFinancialAid = 0 Then
MsgBox ("No Discount Applied.")
End If

'Display Message when both Senior and Financial Aid selected
If chkSenior.Value = 1 And _
chkFinancialAid = 1 Then
MsgBox ("You have received a 20% discount.")
End If

'Display Message when selected Senior or Financial Aid selected
If chkSenior.Value = 1 And _
chkFinancialAid = 0 Then
MsgBox ("You have received a 10% discount.")
End If

If chkSenior.Value = 0 And _
chkFinancialAid = 1 Then
MsgBox ("You have received a 10% discount.")
End If

'Declare Discount variables
curTenPercent = 0.1
curTwentyPercent = 0.2

'Determine Discount for either Senior or Financial Aid
If chkSenior.Value = 1 Or _
chkFinancialAid = 1 Then
curTotalDiscount = curTotal * curTenPercent
strTotalDiscount = curTotal - curTotalDiscount
End If

'Determine Discount for both Senior and Financial Aid
If chkSenior.Value = 1 And _
chkFinancialAid = 1 Then
curTotalDiscount = curTotal * curTwentyPercent
strTotalDiscount = curTotal - curTotalDiscount

End If

'Display Output with no Discount Applied
strTotal = Format(curTotal, "$###.00")
strOutput = "The total price of your trip will be " & strTotal & "."
lblOutput.Caption = strOutput



'Display Output with Discount Applied
strTotalDiscount = Format(strTotalDiscount, "$###.00")
strOutputDiscount = "The total price of your trip will be " & _
strTotalDiscount & "."
lblOutput.Caption = strOutputDiscount

End Sub