calc code

Dim x,y,z
Function Button1_onclick()
  x=CInt (TextBox1.value )
  y=CInt (TextBox2.value)
  z=x+y
  Label4.textContent =z
End Function

Function Button2_onclick()
  x=CInt (TextBox1.value )
  y=CInt (TextBox2.value)
  z=x-y
  Label4.textContent =z
End Function

Function Button3_onclick()
  x=CInt (TextBox1.value )
  y=CInt (TextBox2.value)
  z=x*y
  Label4.textContent =z
End Function

Function Button4_onclick()
  x=CInt (TextBox1.value )
  y=CInt (TextBox2.value)
  z=x/y
  Label4.textContent =z
End Function

Function Button5_onclick()
    TextBox1.Text = ""
    TextBox2.Text = ""
End Function