Como saber si un numero es impar

[freegirl]

Hola,

te pongo un ejemplo de como se podría hacer. Lo he probado con varios números y me funciona ok.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.esImpar(Me.TextBox1.Text) = False Then
MsgBox("Este número es par.")
Else if Me.esImpar(Me.TextBox1.Text) = True then
MsgBox("Este número es impar")
End If
End Sub


Private Function esImpar(ByVal numero As Long) As Boolean
esImpar = numero And 1
End Function

saludos