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

Sub aaa()    If Int(InputBox("Введите целое число")) Mod 2 = 0 Then        MsgBox "Четное"    Else        MsgBox "Нечетное"    End IfEnd Sub