Je ne vois pas ou est le problème? Chez moi ça marche très bien:
Private Sub TextBox4_Change()
Dim i
TextBox1.Value = (Val(TextBox2) + Val(TextBox3) - Val(TextBox4)) / 2
i = Replace(TextBox1.Value, ",", ".")
TextBox5 = Val(TextBox1) / (2 * Val(i))
End Sub
Juste une remarque, cela t'affiche une erreur si ta valeur de i=0 car dans : TextBox5 = Val(TextBox1) / (2 * Val(i))
tu divise par i or on ne peut pas diviser par 0...