Calcolo matematico in UserForm - Parte 2

Private Sub ListBox1_Change()
If Me.dtPrec = "" Or Me.SaldoPrec = "" Or Me.SaldoDaRiconc = "" Or Me.dtDaRicon = "" Then
    For j = 0 To Me.ListBox1.ListCount - 1
        Me.ListBox1.Selected(j) = False
    Next
    Exit Sub
End If
With Me.ListBox1
'quando si METTE LA SPUNTA un record, la differenza (SaldoCur) viene aumentata dell'importo _
 delle entrate e diminuita dell 'importo delle uscite
For j = 0 To .ListCount - 1
    If .Selected(j) Then
        riga = .List(j, 4)
        If wkA.Cells(riga, 11) = "" Then
            wkA.Cells(riga, 11) = "ok" ' colonna riservata
            Me.SaldoCur = CDbl(Me.SaldoCur) + wkA.Cells(riga, 8) - wkA.Cells(riga, 7) ' uscite / entrate
        End If
    End If
Next j
'quando si TOGLIE LA SPUNTA un record, la differenza (SaldoCur) viene aumentata dell'importo _
 delle entrate e diminuita dell 'importo delle uscite
For j = 0 To .ListCount - 1
    If Not .Selected(j) Then
        riga = .List(j, 4)
        If wkA.Cells(riga, 11) = "ok" Then ' colonna riservata
            Me.SaldoCur = CDbl(Me.SaldoCur) - wkA.Cells(riga, 8) + wkA.Cells(riga, 7) ' uscirte / entrate
            wkA.Cells(riga, 11) = ""
        End If
    End If
Next
End With
'Se la differenza (saldoCur) è = 0, il conto è riconciliato.
If Me.SaldoCur = 0 Then
    domanda = MsgBox("Conto riconciliato, Aggiornare Archivio ?" & vbCrLf & _
                     "SI = Fine riconciliazione - aggiorna archivio" & vbCrLf & _
                     "NO = Annulla conciliazione" & vbCrLf & _
                     "ANNULLA = Prosegui nella spunta di altri movimenti", vbYesNoCancel)
    If domanda = vbNo Then
        Range("K14:K" & ur).ClearContents
        Unload Me
        MsgBox "conto non riconciliato"
    ElseIf domanda = vbYes Then
        ' se si conferma, pulisce la col. di appoggio I e mette la data di riconciliazione _
          del movimento in col. H
        For j = 14 To ur
            If wkA.Cells(j, 11) = "ok" Then
                wkA.Cells(j, 10) = CDate(Me.dtDaRicon)
                wkA.Cells(j, 11) = ""
            End If
        Next j
        
        'aggiorna i dati di riconciliazione ed il relativo saldo
        wkB.Cells(RigaBanca, 6) = CDate(Me.dtDaRicon)
        wkB.Cells(RigaBanca, 5) = CDbl(Me.SaldoDaRiconc)
        MsgBox "Raccordato - scritture effettuate"
        Unload Riconcilia
    Else
        Exit Sub
    End If
End If
End Sub