Label30 = Format(Val(TextBox3), "##0.00 $")
Label31 = Format(Val(TextBox3) * 7 / 100, "##0.00 $")
Label33 = Format(Val(Val(Label31) + Val(Label30)) * 6 / 100, "##0.00 $")
Label36 = Format(Val(Label30) + Val(Label31) + Val(Label33), "##0.00 $")
Label37 = Format(Val(Label36), "###0.00 $")