Checking if a number is even???

[Cease]

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

[HeSaidJoe]

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:

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

Usage:

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!