[Resolvido]Sistema de venda Alexandre Fim, dúvida

Ola pessoal,neste exemplo de vendas,quando dou um desconto em uma venda esse desconto sai errado no cupom ao lado no total geral.

BOa noite, aonde está o erro? O cálculo está certo,18-2 é 16

Ola amigo,veja bem, a  pilha custa 10.00 foi comprado 2 menos 2,00 de desconto da 18.00.
Só não sei porque quando adiciono a compra ele diminui mais 2,00 sozinho.

Neste trecho está repetindo o desconto.

Código:

Public Sub GeraDadosProd()
Dim y As Integer
  
    vTotProd = 0
    vTotDesc = 0
    vTotal = 0
  
    vdadosprod = Empty
    With lstItens
        For y = 1 To .ListCount - 1
            'LINHA 1
            vdadosprod = vdadosprod & Format(.Column(0, y), "0000000000000") & Space(3)
            vdadosprod = vdadosprod & (.Column(1, y)) & Space(32 - Len(.Column(1, y)))
            vdadosprod = vdadosprod & (.Column(2, y)) & vbNewLine
            'LINHA 2
            vdadosprod = vdadosprod & Space(7 - Len(.Column(4, y))) & .Column(4, y)
            vdadosprod = vdadosprod & Space(15 - Len(.Column(3, y))) & .Column(3, y)
            vdadosprod = vdadosprod & Space(10 - Len(Format((.Column(5, y)), "###,###,###,##0.#0"))) & Format((.Column(5, y)), "###,###,###,##0.#0")
            vdadosprod = vdadosprod & Space(18 - Len(Format((.Column(6, y)), "###,###,###,##0.#0"))) & Format((.Column(6, y)), "###,###,###,##0.#0") & vbNewLine
            vTotProd = CDbl(vTotProd) + CDbl(.Column(6, y))
            vTotDesc = CDbl(vTotDesc) + CDbl(.Column(5, y))
            vTotal = vTotProd - vTotDesc 
        Next y
    End With

 
    
    txtTotProd = vTotProd
    txtTotDesc = vTotDesc
    txtTotal = CDbl(vTotal)

End Sub

Trocar esse:

Código:

vTotal = vTotProd - vTotDesc

Por esse:

Código:

vTotal = vTotProd

Perfeito meu amigo,descobriu o erro,muito obrigado,valeu mesmo.