"VBA" Programlama dilinde "Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek" ile ilgili kod örneği aşağıda gösterilmiştir.

Sub Main()
    Dim number As Double
    number = InputBox("Bir sayı giriniz:")
    Dim x As Double
    x = number Mod 2

    If x = 0 Then
        MsgBox "Sayı Çifttir"
    Else
        MsgBox "Sayı Tektir"
    End If
End Sub