WAP to add two numbers in VB.net and Show Message Box

Private sub Button1_Click(------)
Din a,b,Add As Double
a=val(TextBox1.Text)
b=val(TextBox2.Text)
Add=a+b
MsgBox("Addition="&Add)
End Sub