Solved: if odd even numbers

Ok so I am trying to write a If statement that if a variable is an odd number then it will use one formulae and if it is an even number it will use a different one.
I tried using
[VBA]
If variable Is Odd Then
'formula 1
Else
'formula2
End If
[/VBA]
however Odd/Even aren't useable criteria, do you guys know how I could solve this or if there is something i could use instead of odd?

[vba]

If myVar Mod 2 = 1 Then

MsgBox "odd"
Else

MsgBox "even"
End If
[/vba]

Thanks Xld youve done it again :wizard:

Hi,

[VBA]Sub OddorEven()
If Var Mod 2 = 0 Then
'use formula 1
Else
'use formula 2
End If
End Sub
[/VBA]

Hope this helps.

Regards


kp

Code:

---

Sub Button2_click()
Dim x As Integer
Dim y As Integer
x = InputBox("Please enter the Number")
If x Mod 2 Then
MsgBox "The Number is the Odd Number"
Else
MsgBox "The Number is the Even Number"
End If
End Sub

---

Code:

---

Public Function IsEven(ByVal Number As Long) As Boolean
    IsEven = (Number Mod 2 = 0)
End Function

Public Sub findEvenOdd()
Dim x As Integer
x = InputBox("Please enter the number")
If IsEven(x) Then
MsgBox "The Number is the Even Number"
Else
MsgBox "The Number is the Odd Number"
End If
End Sub

---