Checking if a number is even???

Basically i have got a problem where i need to see if an integer is odd or even, can someone please help me on this task???
Thanx
Cease

Code:

---

Option Explicit

Private Sub Command1_Click()
    Dim i As Integer
    For i = 1 To 5
    If i Mod 2 <> 0 Then
      MsgBox i
    End If
   
    Next

End Sub

---

Take a look at this thread.

Try this code:

Code:

---

Public Function IsEven(I As Integer) As Boolean
    IsEven = Not I And 1
End Function

---

Usage:

Code:

---

Dim X as integer

X=2      ' or any other number

If IsEven(X) then
  msgBox X & " is even"
else
  msgBox X & " is uneven"
end if

---

Have fun!