Function guZahl(ByVal Zahl As Long) As Boolean
        If Math.IEEERemainder(Zahl, 2) = 1 Then
            Return False
        Else
            Return True
        End If
    End Function
' Wenn die Zahl gerade ist wird True zurückgegeben.
' Wenn die Zahl ungerade ist wird False zurückgegeben.
 
' Im Code kannst Du das dann auch per If-Abfrage erledigen:
Dim x As Integer = 5
If guZahl(x) Then
' Zahl gerade
Else
' Zahl ungerade
End If

MfG
Visual Studio .Net Team Suite 2008 - Meine neue lieblings IDE