Manipulate[
 Pane[Text@
   Style[Grid[{{Row[{Style[ "" b " minutes passed while you were showering, so... ",
          Darker[Orange], 14, Bold], b minutes, " \[Times] ",
         2.5/1 gallons/minute}]}, {"\n"},
      {Row[{Style["Gives us your use of water in gallons = ",
          Darker[Green], 15, Bold, Italic],
         Style[NumberForm[(b*2.5)/1 gallons used, {4, 2}]
          , Darker[Blue], 25, Bold]}]},
      {"\n"}, {Row[{Style[
          "By Cynthia Tsai; Section: XinWen Zhu, MWF 12-1",
          10]}]}, {"\n"}
      }]],
  {250, 200}, Alignment -> {Center, Center}],
 {{b, 0.0, "Length of your shower in minutes"}, 0, 100, .01}]