hi
have now got this that works but need it to be in £ s sterling and not numbers as is with this code , ws is in £s

[Private Sub TextBox1_Change()
If TextBox1.Value = "" Then Exit Sub
If TextBox2.Value = "" Then Exit Sub
TextBox3.Value = CDbl(TextBox1.Value) - CDbl(TextBox2.Value)
End Sub ]

[Private Sub TextBox2_Change()
If TextBox1.Value = "" Then Exit Sub
If TextBox2.Value = "" Then Exit Sub
TextBox3.Value = CDbl(TextBox1.Value) - CDbl(TextBox2.Value)
End Sub]
hope this helps any else struggling
colin