Sorry, it does work fine, I missed the last Text Box:

TextBox8.Value = Val(TextBox5.Value) - Int(Val(TextBox1.Value))
Thank you very much ;-)