Private Sub CmbBxOpening_Change()
TxtBxWTOpening = Format(CmbBxOpening.Value / 3 * 5, "0.00")
Tscore1.Value = Val(TxtBxWTOpening.Value) + Val(TxbBxWTPolicy.Value)
End Sub

Private Sub CmbBxPolicy_Change()
TxtBxWTPolicy = Format(CmbBxPolicy.Value / 1 * 8, "0.00")
Tscore1.Value = Val(TxtBxWTOpening.Value) + Val(TxbBxWTPolicy.Value)
End Sub


In the Tscore1 textbox, I am getting a concatenation of what is
entered in TxtBxWTOpening and TxtBxWTPolicy.

When I select 1 in the CmbBxOpening combo box, I get 1.67 in
TxtBxWTOpening
When I select 1 in the CmbBxPolicy combo box, I get 8.00 in
TxtBxWTPolicy

when I add them, instead of getting 9.67, i am getting 1.678.00 which
is a concatenation. Can anyone help?

The combobox store the number as text instead of numbers. If you are reading
the values from the combo box you must convert the text to numbers before you
add them. Simply do what you have already done in tthe code posted. Use the
Val function. total = val(Combobox1.text) + val(Combobox2.text)

"Maxi" wrote:

Private Sub CmbBxOpening_Change()
TxtBxWTOpening = Format(CmbBxOpening.Value / 3 * 5, "0.00")
Tscore1.Value = Val(TxtBxWTOpening.Value) + Val(TxbBxWTPolicy.Value)
End Sub

Private Sub CmbBxPolicy_Change()
TxtBxWTPolicy = Format(CmbBxPolicy.Value / 1 * 8, "0.00")
Tscore1.Value = Val(TxtBxWTOpening.Value) + Val(TxbBxWTPolicy.Value)
End Sub


In the Tscore1 textbox, I am getting a concatenation of what is
entered in TxtBxWTOpening and TxtBxWTPolicy.

When I select 1 in the CmbBxOpening combo box, I get 1.67 in
TxtBxWTOpening
When I select 1 in the CmbBxPolicy combo box, I get 8.00 in
TxtBxWTPolicy

when I add them, instead of getting 9.67, i am getting 1.678.00 which
is a concatenation. Can anyone help?

thank you so much for your help

On Aug 30, 4:08 pm, Joel wrote:
The combobox store the number as text instead of numbers. If you are reading
the values from the combo box you must convert the text to numbers before you
add them. Simply do what you have already done in tthe code posted. Use the
Val function. total = val(Combobox1.text) + val(Combobox2.text)



"Maxi" wrote:
Private Sub CmbBxOpening_Change()
TxtBxWTOpening = Format(CmbBxOpening.Value / 3 * 5, "0.00")
Tscore1.Value = Val(TxtBxWTOpening.Value) + Val(TxbBxWTPolicy.Value)
End Sub

Private Sub CmbBxPolicy_Change()
TxtBxWTPolicy = Format(CmbBxPolicy.Value / 1 * 8, "0.00")
Tscore1.Value = Val(TxtBxWTOpening.Value) + Val(TxbBxWTPolicy.Value)
End Sub

In the Tscore1 textbox, I am getting a concatenation of what is
entered in TxtBxWTOpening and TxtBxWTPolicy.

When I select 1 in the CmbBxOpening combo box, I get 1.67 in
TxtBxWTOpening
When I select 1 in the CmbBxPolicy combo box, I get 8.00 in
TxtBxWTPolicy

when I add them, instead of getting 9.67, i am getting 1.678.00 which
is a concatenation. Can anyone help?- Hide quoted text -

- Show quoted text -