Please help me with the following VBA programming project questions, I hope to get a correct answer as a reference, thank you very much.

$a{x}^2+bx+c=0$

D$=$CoefficientB $*$ CoefficientB $-4*$ CoefficientA $*$ CoefficientC

$a,b$ and $c$ are coefficients of the equation. To solve for $x$ in the above equation

please use VBA code to solve it$.$

Please partially use the following code:

If Target.Address $=$ Range$("$CoefficientA$").$Address Or $\_$

Target.Address $=$ Range$("$CoefficientB$").$Address Or $\_$

Target.Address $=$ Range$("$CoefficientC$").$Address Then

$...$VBA code executed when one of the cells is changed...

End If

Dim A As Double

Dim B As Double

Dim C As Double

Dim D As Double

A $=$ Range$("$CoefficientA$").$Value

B $=$ Range$("$CoefficientB$").$Value

C $=$ Range$("$CoefficientC$").$Value

If D $>0$ Then

$...$VBA code to calculate two distinct solutions...

ElseIf D $=0$ Then

$...$VBA code to calculate one solution...

Else

$...$VBA code to show $"$No Solution"...

End If

Thanks!