Calculate formatted Textbox

[dave8]

I have 5 textboxes that are used to display values. The textboxes are formatted such that a negative number is formatted in parenthesis, for example, -0.25, (.25). Finally, I have a sixth textbox that sums the previous five values in the textboxes. The problem is that values being formatted in parenthesis is now treated as a negative in the calculation. How to calculate the values in parenthesis as negative number?

 

[bjurney]

What is the code for the textbox that is formatted to show negative numbers as (100)?

 

[dave8]

My code looks something like this:

Textbox6.value = Format(val(textbox1.value) + val(textbox2.value)...,"0.000;(0.000)")

Thus, textbox1...textbox5 are Format(val(textbox1.value),"0.000;(0.000)"). So, each Textbox can have a positive or negative value. I want Textbox6 to have the sum of all the previous textboxes. The result can be negative, i.e., (0.30), or positive, 50.2.

 

[bjurney]

Nevermind that. Is it possible to post your whole code?

 

[dave8]

Public Sub CalcAdjust()
    lblAdjuster.Caption = " " & Format(val(lblAutoPay.Caption) + WMGAdjustor + val(lblTerm.Caption) + val(lblOccupancy.Caption), "0.00;(0.00)")
End Sub

 

[bjurney]

How about trying something like this:

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox6.Value = Format(Val(TextBox1.Value) + Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value), "0.000;(0.000)")
TextBox1.Value = Format(TextBox1.Value, "0.00;(0.00)")
TextBox2.Value = Format(TextBox2.Value, "0.00;(0.00)")
TextBox3.Value = Format(TextBox3.Value, "0.00;(0.00)")
TextBox4.Value = Format(TextBox4.Value, "0.00;(0.00)")
TextBox5.Value = Format(TextBox5.Value, "0.00;(0.00)")
End Sub

That way when you have entered say -2 in textbox1 when you are done entering all your values it will change -2 to (2.00) but still calculate correctly. Hope that helps.