Update calc.vb