03. Even or Odd

Sub LiveDemo()
    Dim num As Integer
    num = 7

    If num Mod 2 = 0 Then
        Debug.Print "Even"
    Else
        Debug.Print "Odd"
    End If
End Sub