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?