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

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