lblsub.Caption = lblsub.Caption + currentprice
lbltax = lblsub * 0.14
lbltot = lblsub + vallbltax + vallbltot
lblsub.Caption = Format(lblsub.Caption, "$#,###.00")
lbltax.Caption = Format(lbltax.Caption, "$#,###.00")
lbltot.Caption = Format(lbltot.Caption, "$#,###.00")