My solution to my problem is:
Instead of using all the vba code, just use the expression builder for each text box an insert the following: =Round(Sum(IIf([Breakfast]="Evening Snack",[TotalCalories],Null)),1), I rounded it to keep it from getting to large of results. that was the first one there...