This code works, but is decidedly average:
Public Function EvenNumber(ByVal Number As Integer) As Boolean
Dim Result As Integer
Result = Convert.ToInt32(Number.ToString.Substring(Number.ToString.Length - 1, 1))
Select Case Result
Case 0, 2, 4, 6, 8
Return True
Case Else
Return False
End Select
End Function