Bonsoir,
Crée 2 textbox dans un formulaire et met le code suivant :
Private Sub TextBox1_Change()
text = Split(TextBox1, "+")'crée un tableau de caractères rupture par le signe "+"
For a = 0 To UBound(text)
somme = somme + Val(text(a))
Next a
TextBox2 = somme
End Sub