' Função (If Then, Else, End If) Verifica se o Numero é Par ou Impar

Sub procpar_ou_impar()
' Função If Then, Else, End If Verifica se o numero é par ou Impar
Dim numero   As Integer
Dim mensagem As String
numero = Val(InputBox("Digite um Numero :"))

    If (numero Mod 2 = 0) Then
        mensagem = "Numero é Par"
    Else
        mensagem = "Numero é Impar"
    End If
    MsgBox mensagem
End Sub