Dados los números enteros hallar la suma

Public Class Form1

    Dim n1, n2, s As Integer

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        n1 = Val(Me.TextBox1.Text)

        n2 = Val(Me.TextBox2.Text)

        s = n1 + n2

        Me.TextBox3.Text = Str(s)

    End Sub

End Class