If Check1.Value = 1 And Label1.Caption > 14 Then
Label2.Caption = Format$(total * 0.8, "currency")
Else
MsgBox "You Have To Put at Least 15 Years", 48, "Error"
End If