I have a basic userform where I want to calculate "hours worked" figures against 10 employees.

For each employee a calculation works out the total cost based upon an "hourly" rate in an adjacent text box. i.e. text box1 = hours worked, text box 2 = hourly rate and textbox 3 = calculation. This work fines with each employee.

The problem comes with the sum box at the end, I basically want to add textbox 3,6,9,12, and 15 (the costs for each employee) into textboxWAGESCOST.

The calculation in the text box only works when i enter something into textboxWAGESCOST, but I want the total to count up/update as I go along?!

My code is below....can anyone help please?

Private Sub TextBox1_Change()
    If TextBox1.Value = "" Then Exit Sub
    If TextBox2.Value = "" Then Exit Sub
    TextBox3.Value = CDbl(TextBox1.Value) * CDbl(TextBox2.Value)
        End Sub
 Private Sub TextBox2_Change()
    If TextBox1.Value = "" Then Exit Sub
    If TextBox2.Value = "" Then Exit Sub
    TextBox3.Value = CDbl(TextBox1.Value) * CDbl(TextBox2.Value)
End Sub
Private Sub TextBox4_Change()
    If TextBox4.Value = "" Then Exit Sub
    If TextBox5.Value = "" Then Exit Sub
    TextBox6.Value = CDbl(TextBox4.Value) * CDbl(TextBox5.Value)
    
End Sub
Private Sub TextBox5_Change()
    If TextBox4.Value = "" Then Exit Sub
    If TextBox5.Value = "" Then Exit Sub
    TextBox6.Value = CDbl(TextBox4.Value) * CDbl(TextBox5.Value)
    
End Sub
Private Sub TextBox7_Change()
    If TextBox7.Value = "" Then Exit Sub
    If TextBox8.Value = "" Then Exit Sub
    TextBox9.Value = CDbl(TextBox7.Value) * CDbl(TextBox8.Value)
    
End Sub
Private Sub TextBox8_Change()
    If TextBox7.Value = "" Then Exit Sub
    If TextBox8.Value = "" Then Exit Sub
    TextBox9.Value = CDbl(TextBox7.Value) * CDbl(TextBox8.Value)
    
End Sub
Private Sub TextBox10_Change()
    If TextBox10.Value = "" Then Exit Sub
    If TextBox11.Value = "" Then Exit Sub
    TextBox12.Value = CDbl(TextBox10.Value) * CDbl(TextBox11.Value)
    
End Sub
Private Sub TextBox11_Change()
    If TextBox10.Value = "" Then Exit Sub
    If TextBox11.Value = "" Then Exit Sub
    TextBox12.Value = CDbl(TextBox10.Value) * CDbl(TextBox11.Value)
    
End Sub
Private Sub TextBox13_Change()
    If TextBox13.Value = "" Then Exit Sub
    If TextBox14.Value = "" Then Exit Sub
    TextBox15.Value = CDbl(TextBox13.Value) * CDbl(TextBox14.Value)
    
End Sub
Private Sub TextBox14_Change()
    If TextBox13.Value = "" Then Exit Sub
    If TextBox14.Value = "" Then Exit Sub
    TextBox15.Value = CDbl(TextBox13.Value) * CDbl(TextBox14.Value)
    
End Sub

Private Sub TextBoxWAGESCOST_Change()
    TextBoxWAGESCOST.Value = CDbl(TextBox3.Value) + CDbl(TextBox6.Value) + CDbl(TextBox9.Value) + CDbl(TextBox12.Value) + CDbl(TextBox15.Value)
End Sub