VBA to remove VAT from a Gross Value

[tigerdel]

Hi Guys

I need to have a textbox that shows the nett value before VAT from a Gross value

I have a UserForm with the following textboxes:

TextBox1 where the user enters the Gross value
TextBox2 where the user enters the applicable VAT Rate [default is set to 20]
TextBox3 is to contain the Nett value

the code I am using is:

Private Sub TextBox1_Change()
TextBox3.Value = Application.Evaluate(TextBox1.Value / (100 + TextBox2.Value) * (100))
TextBox3.Value = Format(ActiveCell, "£#.00")
End Sub

Something is not right but for the life of me I can't see what

Any geniuses out there tonight??

Thanks

Derek

 

[offthelip]

your equation is wrong to gertthe net value you have to multiply by:
100 divided by 100 plus the VAT rate
e.g
TextBox3.Value = Application.Evaluate(TextBox1.Value * (100)/(100 + TextBox2.Value) )

I not even sure you need the application.evaluate either

 

[tigerdel]

RESOLVED: VBA to remove VAT from a Gross Value

Many thanks