VB .NET - Como saber se um número é par ou ímpar

Public Class Form1

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

        Dim valor As Integer

        valor = Val(Me.TextBox1.Text)

        If valor Mod 2 = 0 Then

            MsgBox("O número é par")

        Else

            MsgBox("O número é ímpar")

        End If

    End Sub

End Class

Espero ter ajudo e att.