Access - sumar totales de un cuadro de lista

que tal muy buen dia
tengo un problema enun formulario teçngo un cuadro de lista llamado "lstCPP" en el cual hay 12 columnas que se visualizan cuando se da un rango de fecha,

al sumar los totales generales con una formula que revise aui si funciona bien :

Dim i As Integer

'En caso de que queramos sumar una columna que no sea la dependiente,
'Ponemos como dependiente la columna que queremos sumar
Me.lstCPP.BoundColumn = 2

For i = 0 To Me.lstCPP.ListCount - 1
Me.totalG = Nz(totalG, 0) + Me.Lista1.ItemData(i)
Next i

'Volvemos a establecer la columna dependiente predeterminada
Me.Lista1.BoundColumn = 1

pero curre que necesito sacar 2 totales diferentes uno de
"PAGADOS" y otro de "CREDITO", para tomar estos valores del cuador de lista tomo la columna no 4 que es el campo "TIPO DE PAGO",ahi los que son pagados tiene el valor 1 y los que tiene credito son el valor 2 y necesito que parascan en otra caja de texto la d pagado en la caja de texto llamada "TotalesP" y en la de credito0 en "TotalesC"
realice la siguiente instrcucion pero no me da me dice valor nulo

Me.TotalP = Me.Total1 +(Val(Me.lstCPP.Column(12)) * Abs(Me.lstCPP.Column(4) = "1"))
Me.TotalC = Me.Total2 +(Val(Me.lstCPP.Column(12)) * Abs(Me.lstCPP.Column(4) = "2"))

mi pregunta en donde estare mal u otra formula para realizar el calculo?