Public Function OddEven(ByVal Number As Integer) As Integer
  ' Przeznaczenie: Funkcja ta zwraca wartość 1, jeśli liczba jest nieparzysta,
  '      oraz 0 w przeciwnym razie.
  '
  ' Argumenty:
  '  Number   Testowana liczba całkowita
  '
  ' Zwracana wartość:
  '  Integer   1 - argument nieparzysty, 0 - parzysty
  '
  OddEven = Number Mod 2
End Function
Pierwsza linia 
