Es que quiero restar en varios Textbox y una vez que siga apretando el botón siga restando. pero no logro poder lograr que funciones

Private Sub CommandButton1_Click()

On Error Resume Next

TextBox3 = CDbl(TextBox4) - CDbl(TextBox5) - CDbl(TextBox6) - CDbl(TextBox7) - CDbl(TextBox8)

 

End Sub

TextBox3 = TextBox3 - CDbl(TextBox4) - CDbl(TextBox5) - CDbl(TextBox6) - CDbl(TextBox7) - CDbl(TextBox8)

Gracias por la ayuda  tengo esta duda

 

On Error Resume Next
TextBox3 = TextBox4 - TextBox5 - TextBox6 - TextBox7 - TextBox8
If CDbl(TextBox3) < 0 Then TextBox3 = 0

 

una vez que borren en el TextBox el valor,  no hay una manera que en TextBox siempre este en 0  para que no tenga problema a la hora de borrar la cantidad y le den calcular siga restando porque una vez que se quiera borrar la cantidad y el TextBox no tenga el valor no dara resultado!!