Your programs codę:
SubcmdCalc Click()
Cali CostOf Sales^z^
End Sub_
Sub optSaleReport Click( Cali CostOfSales <
Sub chkOtrEnd LostFocus(
Cali CostOfSales < —: End Sub
End Sub