Visual Basic.NET - Restar en data grid view

'AQUI SE REALIZA LA CUENTA DEL IMPORTE TOTAL CUANDO EL TIPO DE PAGO ES 2 MENOS EL IMPORTE DE TIPO DE PAGO 1

Private Sub AjustarImporte2(ByVal cuentacuil As String)

    Dim CuentaClientABuscar As String

    Dim IndiceColumnaCuenta As Integer = 2

    Dim IndiceColumnaTipoPago As Integer = 4   ' este variable no es utilizado en este ejemplo

    Dim IndiceColumnaImporte As Integer = 5

    Dim resul As Double

    Dim Importe1 As Double

    Dim Importe2 As Double

    CuentaClientABuscar = cuentacuil

    For L As Integer = 0 To DataGridView22.Rows.Count - 2   ' Escribir -1 si no existe una ultima linea vacia

        If DataGridView22.Item(IndiceColumnaCuenta, L).Value = CuentaClientABuscar Then

            Importe2 = CType(DataGridView22.Item(IndiceColumnaImporte, L).Value, Double)

            If CType(DataGridView22.Item(IndiceColumnaTipoPago, L + 1).Value, Integer) = 1 Then

                Importe1 = CType(DataGridView22.Item(IndiceColumnaImporte, L + 1).Value, Double)

                resul = Importe2 - Importe1

                DataGridView22.Item(IndiceColumnaImporte, L).Value = String.Format("{0:##0.00}", resul / 100).Replace(",", ".")

            End If

            Exit For

        End If

    Next

End Sub

'este es el codigo que llama a esa funcion

For Each item As DataGridViewRow In DataGridView22.Rows

    If (item.Cells("CUENTAA").Value > 1 And item.Cells("TIPODEPAGO").Value = 1) - 1 Then

        cuentacuil = item.Cells("CUENTAA").Value

        AjustarImporte2(cuentacuil)

    Else

        SOLO_VALOR = 45

    End If

Next