VB6 Code - Mengetahui Bilangan Apakah Ganjil Atau Genap?

Di bawah ini merupakan fungsi VB6 yang sangat sederhana untuk mengetahui sebuah bilangan, apakah ia genap atau ganjil?

Option Explicit

Public Function IsEven(Number As Double) As Boolean
    IsEven = IIf(Number Mod 2 = 0, True, False)
End Function

Contoh penggunakan kode VB6 di atas:

Private Sub Command1_Click()
    MsgBox IsEven(20) 'return true
End Sub

Private Sub Command1_Click()
    MsgBox IsEven(21) 'return false
End Sub