Составьте программу, проверяющую, что введенное число является четным или нечетным на языке vba

Sub test()
    Dim n As Long
    n = InputBox("Введите целое число")
    MsgBox IIf(n Mod 2 = 0, "Четное", "нечетное"), vbInformation
End Sub