I have a Quality Control question using CRITBINOM().
My understanding is shown in cell(A7), but it does not seem right.
Will someone help me, please?

Sub Question_on_CRITBINOM()
Range("A1") = "Data"
Range("B1") = "Description"
Range("A2") = 25
Range("A3") = 0.5
Range("A4") = 0.01
Range("B2") = "Number of Bernoulli trials"
Range("B3") = "Probability of a success on each trial"
Range("B4") = "Criterion value"
Range("A6") = "=CRITBINOM(A2,A3,A4)"
Range("A7") = "=""For a "" & (1-A4)*100 & ""% success rate, a maximum of
rejects allowed is "" &A6 & "" out of "" & A2 & "" trials. If it is over
that, reject the whole lot."""
End Sub