Boa tarde Galera,

Estou tentando fazer uma calculadora para calcular imposto de uma nota fiscal.
Mais na hora do cálculo esta dando erro por causa do Format()

Private Sub txtValor_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    txtValor = Format(txtValor, "R$ #,###0.00")
    
End Sub

Private Sub txtISS_Exit(ByVal Cancel As MSForms.ReturnBoolean)

On Error Resume Next

    txtISS = Me.txtISS / 100
    txtISS = Format(Me.txtISS.Value, "0.0%")
    
End Sub

Private Sub txtIRPJ_Exit(ByVal Cancel As MSForms.ReturnBoolean)

On Error Resume Next

    txtIRPJ = Me.txtIRPJ / 100
    txtIRPJ = Format(Me.txtIRPJ.Value, "0.0%")
    
End Sub

Private Sub CommandButton1_Click()
  
Application.ScreenUpdating = False

txtDiv = Application.WorksheetFunction.Sum(1, -Val(textISS), -Val(textIRPJ))

txtNF = Format(Val(txtValor) / Val(txtDiv), "R$ #,###0.00")

Application.ScreenUpdating = True
  
End Sub