los post innecesario o para decir lo mismo creo que no tienen nada que ver aqui no postees para decir lo que esta diciendo otro user por favor
TextBox2.Text = 100 - Val(TextBox1.Text)
if textbox1.text= 0 then
textbox2.text= 0
end if
con este pedaso de codigo yo estaria diciendo que si en el textbox1 no hay resultado o esta en 0 me quedaria 0 en el textbox 2 verdad?