Can multiple textbox exit scripts be combined?

[Fyr]

I have another 100 textboxes that each have textbox#_exit scripts.
I was wondering if they can be combined into 1 exit script?
Here's a short example of the scripts:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label95.Caption = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value) + CDbl(TextBox5.Value) + CDbl(TextBox6.Value)
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label95.Caption = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value) + CDbl(TextBox5.Value) + CDbl(TextBox6.Value)
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label95.Caption = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value) + CDbl(TextBox5.Value) + CDbl(TextBox6.Value)
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label95.Caption = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value) + CDbl(TextBox5.Value) + CDbl(TextBox6.Value)
End Sub
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label95.Caption = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value) + CDbl(TextBox5.Value) + CDbl(TextBox6.Value)
End Sub
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label95.Caption = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value) + CDbl(TextBox5.Value) + CDbl(TextBox6.Value)
End Sub

thanks for taking a look!

 

[Fyr]

bump, sorry

 

[phxsportz]

For what you're doing (I'm assuming you're trying to keep a running total on Label95 of all your text boxes.. You can do the following to reduce the amount of typing, but with your method you'll still need to process each box indepedantly.. you may want to consider an ONKEY event instead... but .. here ya go..

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call TBdo
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call TBdo
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call TBdo
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call TBdo
End Sub
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call TBdo
End Sub
[B][COLOR=blue]Private Sub TBdo()[/COLOR][/B]
[B][COLOR=blue]  [COLOR=green]'only have to type the long line once..[/COLOR][/COLOR][/B][COLOR=blue]
[B]   Label95.Caption = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value) + CDbl(TextBox5.Value) + CDbl(TextBox6.Value)[/B]
[B]End Sub[/B]
[/COLOR]

 

[Fyr]

Thanks for the response!
I'll try that, but the reason i'm asking to see a shorter version is because some computers here at my workspace are old and can't handle all those long scripts. Some computer's crash after exiting the first textbox, while so others don't.

What is ONKEY event do?

 

[phxsportz]

Maybe just calculate it all at once without having to do it after every exit... or after every 10th Text Box

ie..: If you have 100 Textboxes to evaluate.. perhaps..

Private Sub commandbutton1_click()
  For x = 1 to 100
     t_tot = t_tot + controls("Textbox" & x) + t_tot
  Next x
  [COLOR=black]Label95.Caption = Format(t_tot,"$ #,000.00")  'Assumes these are currency.. adjust to suit[/COLOR]
End Sub