Pessoal encontrei esse código no Fórum do Tomás

    'Carrega na Variavel o Valor do Textbox1
    sVal1 = CLng(txtsubTDesco.Value)
    
    'Devolve na variavel o valor do txt_desc e formata para Numerico
    sVal2 = Format(Val(txtDescon.Value), "##")
    
    'Calcula o Resultado, formata como Moeda e coloca o resultado no textbox
    txtTaltal2 = sVal1 - (sVal1 * sVal2 / 100)

só que quando eu coloco o símbolo de porcentagem pra formatar da erro
ex:

sVal2 = Format(Val(txtDescon.Value), "##%")

Seria melhor se vc postasse o modelo da planilha...

O ideal seria fazer o que o gtsalikis disse, nas se entendi veja se seria isto

Private Sub CommandButton1_Click()
    'Carrega na Variavel o Valor do Textbox3
    sVal1 = CLng(TextBox3.Value)
    
    'Devolve na variavel o valor do TextBox2 e formata para Numerico
    sVal2 = Format(Val(TextBox2.Value), "##")
    
    'Calcula o Resultado, formata como Moeda e coloca o resultado no textbox
    TextBox1 = Format(sVal1 - (sVal1 * sVal2 / 100), "Currency")
    
End Sub

Private Sub TextBox2_Change()
    Me.TextBox2.Value = Format(Val(TextBox2.Value) / 100, "##%")
    TextBox2.SelStart = Len(TextBox2.Value) - 1
End Sub

[]s