Visual Basic - Numeros Pares

Necesto un codigo para numeros pares,

ejemplo tendre un texbox y cuando le de clic a mi boton me aparezca mensaje "numero par" de lo contrario "numeo impar" gracis

Private Sub Command1_Click()
If Val(Text1.Text) Mod 2 = 0 Then
MsgBox ("El numero es par")
Else
MsgBox ("El numero es impar")
End If
End Sub