Index was out of range. Must be non-negative and less then size of the collection. Parameter name: index in vb.net

 	Dim Debittotal As Integer = 0
        Dim Credittotal As Integer = 0

        If grdDebit.RowCount > 1 Then
            For index As Integer = 0 To grdDebit.RowCount - 1
*****                Debittotal += Convert.ToDecimal(grdDebit.Rows(index).Cells(2).Value)
            Next
        End If

        If grdCredit.RowCount > 1 Then
            For index As Integer = 0 To grdCredit.RowCount - 1
                Credittotal += Convert.ToDecimal(grdCredit.Rows(index).Cells(2).Value)
            Next
        End If


        Dim NewfnBalance As Integer = Debittotal - Credittotal