menghitung bilangan ganjil dan genap

stelah membuwat from dan button klik 2x pada proses/ button1 , lalu masukan skrip :

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Val(TextBox1.Text) Mod 2 = 0 Then
MessageBox.Show(" " & TextBox1.Text.ToString & "Bilngan Genap")
End If
If Val(TextBox1.Text) Mod 2 <> 0 Then
MessageBox.Show(" " & TextBox1.Text.ToString & "Bilangan Ganjil")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class