Impuestos, mi problema está en que

Tengo una tabla de registros, se supone que al seleccionar un Impuesto (dependiendo la cantidad) me debería mostrar en en la parte de que está pintada de amarillo el costo con el impuesto, que si pueden notar está mal ya que sería 48.00 y en la parte que está pintada con verde el costo total con el impuesto y me coloca el costo sin el impuesto lo correcto sería $348

Aquí está el código el costo total 8que sería el pintado de verde) es TxtTotalCtz y el costo total con impuesto (pintado de amarillo) es TxtTtlImpto

Private Sub CmdAgrConcepto_Click()
    If TxtCant = "" Or TxtCant = 0 Or CbxConcepto = "" Or TxtPUnitario = "" Then
        MsgBox "Faltan datos obligatorios", vbOKOnly + vbInformation, "Aviso"
        Exit Sub
    End If
    Dim Impt As Double, SinImp As Double, TtlImp As Double, Ttl As Double
    Impt = 0: TtlImp = 0: SinImp = 0: TtlImp = 0: Ttl = 0
    Impt = OpbImpto.Caption
    Ttl = CDbl(TxtPUnitario) * CDbl(TxtCant)
    SinImp = CDbl(Ttl) / (1 + (OpbImpto.Caption / 100))
    TtlImp = CDbl(Ttl) - CDbl(SinImp)
    Set li = ControlForm.LswCotizacc.ListItems.Add(Text:=ControlForm.TxtCant)
        li.ListSubItems.Add Text:=ControlForm.CbxConcepto
        li.ListSubItems.Add Text:=FormatNumber(CDbl(ControlForm.TxtPUnitario), 2)
        li.ListSubItems.Add Text:=FormatNumber(CDbl(Impt), 2)
        li.ListSubItems.Add Text:=FormatNumber((CDbl(TtlImp)), 2)
        li.ListSubItems.Add Text:=FormatNumber(CDbl(Ttl), 2)
        li.ListSubItems.Add Text:=ControlForm.TxtIDCncpt
        If CDbl(OpbImpto.Caption) = CDbl(LblTasa0) Then
            TxtTasa0 = FormatNumber(CDbl(TxtTasa0) + CDbl(Ttl), 2)
        ElseIf CDbl(OpbImpto.Caption) = CDbl(LblTasa1) Then
            TxtTasa1 = FormatNumber(CDbl(TxtTasa1) + CDbl(Ttl), 2)
        ElseIf CDbl(OpbImpto.Caption) = CDbl(LblTasa2) Then
            TxtTasa2 = FormatNumber(CDbl(TxtTasa2) + CDbl(Ttl), 2)
        ElseIf CDbl(OpbImpto.Caption) = CDbl(LblTasa3) Then
            TxtTasa3 = FormatNumber(CDbl(TxtTasa3) + CDbl(Ttl), 2)
        ElseIf CDbl(OpbImpto.Caption) = CDbl(LblTasa4) Then
            TxtTasa4 = FormatNumber(CDbl(TxtTasa4) + CDbl(Ttl), 2)
        End If
        TxtTtlImpto = FormatNumber(CDbl(TxtTtlImpto) + CDbl(TtlImp), 2)
        TxtTotalCtz = FormatNumber(CDbl(TxtTotalCtz) + CDbl(Ttl), 2)
        Impt = 0: TtlImp = 0: Ttl = 0: SinImp = 0
        TxtCant = "": CbxConcepto = "": TxtIDCncpt = "": TxtPUnitario = ""
        OpbImpto.Caption = ""

ESPERO QUE ME PUEDAN AYUDAR