SSRS custom code for count in Report Footer

Hi All,

Please help me with the custom code used for below requirement

Debtor Name     current    30+days   60+days    90+days

aaa                       7000        0.00          0.00          10.00

bbb                       5000        0.00         20.99         3.00

ccc                        1000       0.00          0.00           0.00

Expected result in report footer :                 

                                         0                1               2

if  the value of  30+ , 60+ and 90+ columns  >=1 then i have to display the count in Report footer,for that i have tried using a custom code like below :

Shared Dim OD As Integer=0
Public Shared Function Test(ByVal OP As Decimal) As Integer

        If OP >= 1 Then
            OD = OD + 1
        Else
            OD = OD
        End If
        Return OD
   End Function

and using below code to display

Code.Test(Overdue)  

but when i use this code in report footer is not displaying correct value.Please guide me where i am going wrong.

Please let me know if you need any other details.

Thanks in advance,

Samhith.