Thanks, this works
tmp = tmp + CDbl(TextBox2.Value) should have been
tmp = tmp - CDbl(TextBox2.Value)

Dave,
your code displays the whole number then ??/16 (for the fraction) in
the label I don't know why