Numero Par e Inpar En Visual Basic

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim numero As Integer
        numero = Val(TextBox1.Text)
        If (numero Mod 2 = 0) Then
            TextBox2.Text = "Es Par"
        Else
            TextBox2.Text = "Es Impar"
        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Text = " "
        TextBox2.Text = " "
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        End
    End Sub
End Class