Total Text Box by Group

Question

I have a textbox that totals another texbox.

I have used this code (that I got here, thank you very much!) to total them, but now, instead of totaling the text box in the group, it gives a subtotal, of all of the instances of the text box, at the end of each group.  So instead of

textbox4 103.00

textbox4 103.00

textbox4 86.00

Total: 292.00

at the end of the group, it will show 292.00 at the end of the next group, then the next group is:

textbox4 103.00

textbox4 60.00

Total:  455.00

I need it to total by group.

This is the code in the custom code of the report:

Dim public totalvalue as Integer
     Public Function Getvalue (ByVal itemvalue AS Integer ) AS Integer
                 totalvalue = totalvalue+ itemvalue
                 return itemvalue
    End Function
     Public Function PaidTot()
                 return totalvalue
     End Function

In the PaidTot() textbox is this code:  =code.Paidtot()

---

Gee