Try This
Dim inputno01 as integer
Dim inputno02 as integer
dim calculate as integer
If Integer.TryParse(txtinput.Text, calculate) Then
if calculate=1 then
dim total as integer
total=inputno01+inputno02
textboxtotal.text=total.string
else
me.close