It works. Thank you very much!
Will this do enough of what you want?
Animate[{"aa=" NumberForm[a, If[a < 1, 2, 3]],...