VBA calcule

Bonjour a tous et merci "bouben " pour résoudre mon problème .

j'aimerai vous aide

J'ai changer un peu useform partie erreur car sont des résultats de calcule et de relier N° série par "ECH" mais je n’ai pas trouvé la solution de changer le code Car suis débutant en vba j’essayer mais toujours des erreurs

la partie resulat j'ai deja la solution dune formule ex : Eureur (E) = I-L+(0,5ECH-AL)

Private Sub TextBox1_Change()

Dim A As Integer

Dim B As Integer

Dim C As Integer

Dim D As Integer

If TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" And LabelECH.Caption.Value <> "" Then

A = TextBox1.Value

B = TextBox2.Value

C = TextBox3.Value

D = LabelECH.Caption.Value

Label18.Caption = (A - B) + ((0.5 * D) - C)

End If

End Sub

Merci bcp d’avance