'Função (If And, ElseIf Or, Else), Compara em 2 Numeros se ha entre eles Par ou Impar

Sub OperLogicos()
'Função If And, ElseIf Or, Else, Compara em 2 numeros se ha entre eles par ou impar
Dim a        As Integer
Dim b        As Integer
Dim mensagem As String
a = Val(InputBox("Digite Valor do primeiro Numero: "))
b = Val(InputBox("Digite Valor do segundo Numero: "))

    If (a Mod 2 = 0) And (b Mod 2 = 0) Then
        mensagem = "Dois Valores Pares"
    ElseIf (a Mod 2 = 0) Or (b Mod 2 = 0) Then
        mensagem = "Um dos valores é par"
    Else
        mensagem = "Valor Impares"
    End If
    MsgBox mensagem
End Sub