'Varias Função (IF Then Else End If), Verifica lista de 5 Numeros se Par ou Impar

Sub procExer4()
'Varias Função IF Then Else End If, Verifica lista de 5 numeros se par ou impar
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim numero As Integer
Dim mensagem As String

    a = Val(InputBox("Escreva um Numero", "Número a"))
    b = Val(InputBox("Escreva outro Numero", "Número b"))
    c = Val(InputBox("Escreva outro Numero", "Número C"))
    d = Val(InputBox("Escreva um Numero", "Número d"))
    e = Val(InputBox("Escreva outro Numero", "Número e"))
 
'Verifica se "a" é par ou impar
    numero = a
    If (numero Mod 2 = 0) Then
        mensagem = "Numero é Par  "
    Else
        mensagem = "Numero é Impar  "
    End If
    MsgBox mensagem & numero
 
'Verifica se "b" é par ou impar
     numero = b
    If (numero Mod 2 = 0) Then
        mensagem = "Numero é Par  "
    Else
        mensagem = "Numero é Impar  "
    End If
    MsgBox mensagem & numero
 
'Verifica se "c" é par ou impar
     numero = c
    If (numero Mod 2 = 0) Then
        mensagem = "Numero é Par  "
    Else
        mensagem = "Numero é Impar  "
    End If
    MsgBox mensagem & numero
 
'Verifica se "d" é par ou impar
     numero = d
    If (numero Mod 2 = 0) Then
        mensagem = "Numero é Par  "
    Else
        mensagem = "Numero é Impar  "
    End If
    MsgBox mensagem & numero
 
'Verifica se "e" é par ou impar
     numero = e
    If (numero Mod 2 = 0) Then
        mensagem = "Numero é Par  "
    Else
        mensagem = "Numero é Impar  "
    End If
    MsgBox mensagem & numero
 
End Sub