Boa noite pessoal tudo bem? Sou Guiherme Melo, e sou iniciante em Excel VBA. Gostaria de uma ajuda se possível com meu problema. Sou comerciante e estou elaborando uma planilha de frente de caixa. gostaria de saber como faço para que a checkbox faça uma verificação? exemplo;
é uma frente de caixa, que ao mandar buscar um produto pelo código, ela retorna os valores dentro das textbox, deixando livre somente as opção de quantidade e peso para serem preenchidas manualmente, porém quero adicionar uma opção de desconto. Fiz uma checkbox, e gostaria que ela verificasse a seguinte condição.
se ela estiver ativada, ela pega o valor digitado dentro da texbox referente ao valor do produto com o desconto, multiplicado pela quantidade, e que o valor seja mostrado na texbox total, caso ela não seja ativada, efetuasse somente a multiplicação do preço pela quantidade, e que esse valor seja mostrado no total.
Segue em anexo a foto da minha tela e o código até o devido momento.

Private Sub btn_pesquisar_Click()
    
    Dim entrada As Worksheet
    Dim painel As Worksheet
    Dim intervalo As Range
    Dim codproduto As Double
    
    Set entrada = Sheets("ENTRADA DE PRODUTOS")
    entrada.Select
    
    Set intervalo = Sheets("ENTRADA DE PRODUTOS").Range("C1:H10")
    Set painel = Sheets("PAINEL")
    painel.Select
     
    'tratamento de erro caso o código do produto esteja vazio
    On Error GoTo erro
    If Me.txt_cod_produto = "" Then
        MsgBox "Por favor digite o Cód.Produto", vbInformation, "Atenção!"
        Me.txt_cod_produto.SetFocus
    Exit Sub
    
    'se não estiver vazio, executar esta condição
    Else
      codproduto = Me.txt_cod_produto.Text
      
    'condição caso a escolha seja a granel ou não
    If MsgBox("Ração a granel?", vbYesNo, "Atenção!") = vbYes Then
        Me.txt_produto = Application.WorksheetFunction.VLookup(codproduto, intervalo, 2, 0)
        Me.txt_peso = ""
        Me.txt_compra = ""
        Me.txt_compra.Visible = False
        Me.txt_peso.SetFocus
    Else
        Me.txt_produto = Application.WorksheetFunction.VLookup(codproduto, intervalo, 2, 0)
        Me.txt_peso = Application.WorksheetFunction.VLookup(codproduto, intervalo, 3, 0)
        Me.txt_val_uni = Application.WorksheetFunction.VLookup(codproduto, intervalo, 5, 0)
        Me.txt_compra.Visible = True
        Me.txt_compra = Application.WorksheetFunction.VLookup(codproduto, intervalo, 6, 0)
        Me.txt_qtd.SetFocus
    End If
    End If
    Exit Sub
    
    'tratamento de erro caso o código seja inválido
erro:
    MsgBox "Por favor digite um código válido", vbInformation, "Atenção!"
    Me.txt_cod_produto = Empty
    Me.txt_cod_produto.SetFocus
   
End Sub


Private Sub UserForm_Initialize()
    With list_produtos
    .AddItem
    .List(0, 0) = Me.Label1
    .List(0, 1) = Me.Label2
    .List(0, 2) = Me.Label3
    .List(0, 3) = Me.Label4
    End With
End Sub